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Color Enhanced 
Dynamic Graphics: 



A New Option; A New Technology 




By Thomas W. Woody 
Tektronix, Inc. 
Beaverton, OR 

Dynamic Graphics* brought powerful in- 
teractivity to the TEKTRONIX 4054 
Desktop Computer. Now the 4054 has 
taken another technological leap: Color 
Enhanced Dynamic Graphics. This new 
option allows refreshed objects to be 
moved arourtd on the graphics screen in 
a contrasting orange color. Enhancing 
Dynamic Graphics with color clearly dis- 
tinguishes refreshed objects from stored 



objects which are in the familiar green 
color. And displaying a refreshed image 
over a stored image achieves a third co- 
lor — very useful for highlighting text or 
objects. 

Packaging a desktop computer with very 
high resolution (4096 x 4096 addressable 
points), Dynamic Graphics, and a second 
color required a major technological ad- 
vancement. To understand this technolo- 
gy, let's take a look at the Direct View 
Storage Tube (DVST), the Write-Thru 
operation, and the Over-Write features. 
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Figure 1 . Operation of the direct view storage tube. Flood electrons continuously bombard the phos- 
phor. In the absence of writing-gun electrons, flood electrons maintain the phosphor at the flood-gun 
cathode potential of volts. When writing- gun electrons strike the phosphor, the phosphor is charged 
past a threshold to maintain a stored charge image. 



*Miki Tokola, "Refreshed Graphic Objects on 
the 4054," TEKniques Vol. 3 No. 5. pp. 1-3. 
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DVST Operation 

A Direct View Storage Tube (DYST) op- 
erates on well known principles that are 
briefly reviewed here. Figure 1 shows a 
simplified DVST structure. A DVST 
consists of a writing gun that operates at 
a negative potential with respect to the 
target. The phosphor target resides over 
a transparent electrical conductor, and a 
dot array of conductive collectors is ar- 
ranged in a uniform fashion across the 
surface of the conductor. Near the back 
of the funnel wall of the cathode ray 
tube (CRT) is an array of flood guns in 
which the cathode is grounded and the 
anode is at a positive potential. 

When the DVST is in normal use for dis- 
playing stored information, the writing 
gun is used to scan the target. As the 
writing-gun beam scans the target, a 
charge is left on the phosphor dielectric. 

Because the charge image areas are at a 
positive potential relative to the flood- 
gun cathode, the flood electrons strike 
the target in the written areas and cause 
the phosphor to luminesce. All of the ar- 
eas that were not written are maintained 
at an average potential much lower than 
the written areas. The areas written up 
are called fully- written, and the unwrit- 
ten areas are known as ready-to- write. 
Figure 1 shows a magnified view of the 
target structure. 

To erase the target and prepare it for 
new information, a pulse is applied to 
the STB, which capacitively couples the 
pulse to the phosphor. This pulse, cou- 
pled with the flood-gun electrons, uni- 
formly fully writes the phosphor and eli- 
minates the ability to resolve between 
former ready-to-write and fully-written 
areas. The balance of the erase restores 
the entire target to a ready-to-write state. 

This simple description shows how a 
DVST is used to display data in the 
stored mode. Once the target is stored, 
no further refreshing or rewriting of the 
information is necessary. 

Write-Thru, How it Works 

Because of its basic nature, the DVST 
must be erased every time a new page of 
information is to be displayed. Although 
the erasure time is not long (about 1 to 
1.5 seconds), if the information is to be 
changed only slightly, rewriting a com- 
plete page of data can take several sec- 
onds depending on the throughput rate of 
the system. 

The need for interactivity and faster re- 
sponse for DVSTs was recognized, and a 



technique called write-thru was devised. 
Write-thru displays information on the 
phosphor target at a current density 
lower than that required to charge or 
write the phosphor target. If the repeti- 
tion rate is adjusted properly along with 
beam current, the refreshed image will 
luminesce but will not store. This feature 
is already available in many DVST dis- 
plays. Options allow the displays to re- 
fresh a number of vectors at an average 
vector length of 1 cm. One drawback to 
this technique is that the refreshed infor- 
mation appears at approximately the 
same brightness as the stored informa- 
tion and also at the same color. As a re- 
sult, write-thru can sometimes confuse 
the observer if the refreshed information 
overlaps the stored information, as in the 
case of multilayer-circuit-board design or 
facilities design. 



Color Write-Thru Operation 

One way to overcome this problem is to 
present the refreshed data in a different 
color. The display is then much more 
viewable, and information is more dis- 
cernible. The color write-thru DVST de- 
scribed here uses a greenish-yellow color 
as denoted on the 1976 CIE-UCS 
chromaticity diagram (see Figure 2, point 
A). 

The method used to obtain the greenish- 
yellow color was fairly straightforward. 
A simple mixture of red phosphor with 
the green produced a write-thru color as 
noted previously. The color obtained is 
dependent on the proportion of each 
phosphor. As shown in Figure 2, the line 
represents this operating area from the 
green to the red phosphor. The two reds 
used most frequently are yttrium oxysul- 
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fide and yttrium oxide, which have ex- 
cellent high-voltage efficiency character- 
istics. 

Determining how much red phosphor to 
add was subject of another, separate 
study. Color shift is defined as the linear 
distance that the write-thru information 
is shifted from the stored information 
along the line shown in Figure 2. The 
minimum discernible color shift for high 
view comprehension level required that 
the red phosphor be 40% to 60% of the 
target by volume. This phosphor mixture 
reduced green stored luminance to about 
4 foot lamberts. Because of this decrease 
in performance, a new tube envelope and 
flood-gun design were used, which 
helped to increase the flood-gun current 
density to the target and thereby in- 
crease the stored luminance. In addition 
to the use of a new funnel, the phosphor 
materials were processed in such a way 
as to increase the nominal operating 
point and thereby obtain additional lumi- 
nance output. 

Another by-product of phosphor process- 
ing also enhances viewability. Normally, 
a mixture of phosphor used as a storage 
target would also present the stored in- 
formation in the resultant mixed color. 
However, the processing forms a dead 



layer on the surface of the red phosphor 
that causes the red phosphor to not lumi- 
nesce until it reaches about 400 volts. 
Because the operating point of the target 
is less than 300 volts, there is a 100-volt 
margin before the red phosphor begins to 
luminesce. This shallow dead layer min- 
imizes the loss in luminance when the 
writing-gun brightness is achieved with 
the greatest overall color shift. 

These improvements resulted in a new 
DVST that retains and improves upon 
the viewability of previous DVSTs. 
Stored luminance was increased by 60% 
as a result of the greater flood-gun cur- 
rent density and operating point. The 
predominant feature is the improvement 
in write-thru viewabiHty by the addition 
of a red phosphor. 

* 'Over- Write" 

A feature that was not available in the 
single-color display is called "over- 
write" rather than write-thru. If some 
data is stored, and then the same image 
is refreshed on top of the stored data, 
another viewable color is seen halfway 
between green and normal write-thru. 
This color is shown as point B on Figure 
2. This feature is called over- write. With 
this feature, one can obtain two levels of 



color shift that are discernible from each 
other. This feature can easily be used to 
highlight information whether graphic or 
alphanumeric. 

With proper software, the color write- 
thru and over-write features expand the 
usefulness of the DVST display. While 
still retaining its inherent low cost, high 
resolution, and flicker-free performance, 
the display can be much more interactive 
with the added dynamics capability. 

Factory Installation 

Because the Color Enhanced Dynamic 
Graphics is a new technology, an exist- 
ing 4054 cannot be field upgraded. The 
different CRT, electronics, and mechani- 
cal packaging require the Color En- 
hanced Dynamic Graphics to be a 
factory installed option. 

To learn more about this exciting option, 
contact your local Tektronix Sales En- 
gineer. 



^ 
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Low-Cost CADD System 
Communicates Numerically 
and Graphically 



by Patricia Kelley 
TEKniques Staff 

Developing floor plans and building ele- 
vations; integrating lighting, heating, ven- 
tilation, plumbing and wiring; tracking 
materials; computing floor area; estimat- 
ing costs; and generally organizing the 
multitude of details for a commercial or 
industrial building requires an archi- 
tect/designer or facilities manager to 
spend immense amounts of time draw- 
ing, estimating and calculating. While 
Computer Aided Design and Drafting 
(CADD) has been around for quite a few 
years to aid designers, few systems have 
been tailored specifically for archi- 
tects/facilities applications. System 
prices have generally been out of reach. 
Furthermore, most systems required an 
operator well versed in computers. Arri- 
goni Computer Graphics is changing 
that. 

Seeking better ways to control all the 
tasks and responsibilities associated with 
his firm's work in commercial and indus- 
trial lighting design, David Arrigoni 
turned to a desktop computer to imple- 
ment a CADD System for his architec- 
tural and electrical design needs. He 
then worked with programmers with ar- 
chitectural backgrounds to create soft- 
ware that communicated in designers' 
terms. What resulted was a complete, 
low-cost CADD system so powerful they 
decided to extend it and share it — a 
package created by designers for design- 
ers. Based around this unique system 
David Arrigoni formed Arrigoni Compu- 
ter Graphics. 

Because the TEKTRONIX 4050 Series 
Desktop Computer possesses the high re- 




Cover Photo: Arrigoni Computer Graphics' TOUCH N' DRAW^^ integrates their unique Touch Control 
Station™ and MENU BOARD™ with the TEKTRONIX 4050 Graphic System, 4663 Plotter and 4907 
File Manager for low cost, time saving design station. (Courtesy of Arrigoni Computer Graphics.) 



solution designers require, plus stand- 
alone intelligence, at a reasonable cost, it 
forms the core of the hardware. Coupled 
to the 4050 is the unique Arrigoni Z-80 
microprocessor-based Touch Control 
Station^^, the TEKTRONIX 4907 File 
Manager and 4663 Plotter, and a digitiz- 
ing tablet with a MENU BOARD™. The 
TOUCH 'N DRAW™ software combines 
with the hardware to create a design and 
drawing production system. 

The configuration is an electronic exten- 
sion of normal drafting tools. Arrigoni 
Vice President Robert Aston analogized: 
"The digitizer is the drafting table, the 
cursor is the drawing implement, the 
disk is a sheet of paper, and the plotter 



produces the final copy — another pen 
in hand. The 4050, Touch Control Sta- 
tion^^ and TOUCH 'N DRAW^^ soft- 
ware perform the details of drafting leav- 
ing the architect or engineer free to 
create." Aston pointed out that the de- 
signer treats the disk as he would a sheet 
of paper. In a normal design environ- 
ment, one person doesn't do everything. 
Thus, a disk may be passed from design 
center to design center just as he would 
a sheet of paper. 

The designer communicates to the sys- 
tem through the Touch Control 
Station'^^, using pre-prepared graphic 
menus. There is no need to translate ide- 
as to alphanumeric s, no need to learn a 
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command language, no need for skilled 
typing. A designer with a computer 
background is not required. The archi- 
tect, draftsman or engineer simply points 
to a menu item on the Touch Control 
Station™ (or alternatively, to the MENU 
BOARD™) to enter a command. Ac- 
cording to David Arrigoni, three days' 
training on the system at the customer 
site will get the user to the point of de- 
veloping quality drawings. 

TOUCH 'N DRAW^^ is structured ac- 
cording to normal arqhitectural drafting 
phases. The plans may be drawn a layer 
at a time, analagous to pieces of "see- 
through" paper, one on top of another. 
For example, one layer for the basic 
wall, door and window outline, one for 
electrical information, one for plumbing 
details, one for textures, and so forth. A 
unique global editing feature enables the 
designer to move all those items within a 
series of layers, i.e., to move a wall and 
bring along all the doors, windows, elec- 
trical outlets, plumbing, etc; or, he may 
opt to move an individual item within 
one layer. 

Architectural Floorplan Program 

Complete, precise architectural floor 
plans are produced using this program. 
The designer defines his plan by touch- 
ing the menu symbol which represents 
the desired design detail (Figure 1). He 
may position the wall, window, etc., 
"graphically" by digitizing its position 
points on the tablet, or at the screen. 
The exact size or length of an item, e.g., 
the specific diameter of a circle, or spe- 
cific length of a wall, can be entered 
"numerically." The program automati- 
cally scales this input to the size of the 
drawing. The first point entered is for 
beginning, second point, is for direction, 
and a number is entered from the key- 
board for actual size. 

Walls may be snapped into perfect hori- 
zontal or vertical ahgnment (an electron- 
ic T-square). Over 250 special functions, 
including noodling (Figure 2), door and 
window insertion, variable wall 
thicknesses, dimenisioning and curve fit- 
ting may be used. The designer may se- 
lect from a variety of windows, doors 
and other architectural symbols. He may 
request multiples of that symbol, for in- 
stance, ask for six windows positioned at 
five-foot intervals along a wall. 

As the design is created, it is displayed 
on the screen. Once completed, it may 
be stored on disk. Existing floor plans 
may be easily modified and saved allow- 
ing the plans to keep pace with architec- 
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Figure 1 . Designers communicate by touching an item on the acetate menu placed on the Touch Control 
Station^^ (or alternatively on the MENU BOARD^^ placed on the tablet). 































BEFO.RE 






AFTER 


























II 



Figure 2. Special functions include noodling. 
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Figure 3 . Completed design using the Architectural Floorplan Program may be archived and changed as 
facilities are expanded or modified. 
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tural changes. The floor plan can be ar- 
chived and changed when facilities are 
expanded or modified. 

General Drawing Program 

Single line work, as well as very sophis- 
ticated work, may be accompHshed using 
this program. Details may be added to 
the architectural floorplan, new draw- 
ings, site plans or general layout work 
done. Curve fitting, dimensioning, dot- 
dash, polygons, circles and mirroring are 
just a few of the functions. Unique relo- 
catable objects may be created, saved 
and re-used. For instance, an architect 
may design a bathroom for an apartment 
complex which will be the same in 30 
units. He can design it once, then place 
it 30 times. Or, where entire floors are 
similar, he could design the first floor, 
make changes, copy it to the second, 
and so on. A layout may be reversed and 
repeated (mirroring). This program re- 
moves the designer from routine and re- 
petitive use of rulers and templates, thus 
allowing him to create and design. 

Symbol Placement Program 

Continuing the analogy, Aston referred 
to the symbols as a sophisticated, tem- 
plate. TOUCH 'N DRAW^M proVides 
1000 symbols — trees, landscape, furni- 
ture, people, air duct grills, electrical 
symbols and so on for almost anything 
that can be visualized. The designer is 
freed from templates and press-on trans- 
fers. Using this program, the plans de- 
fined through the previous two programs 
are enhanced. A special package sup- 
ports the 4054 dynamic graphics option 
enabling the designer to dynamically 
move symbols around rapidly and to the 
appropriate drawing scale. Symbols can 
be repeated along a line with several op- 
tions for automatic spacing as well as re- 
peated placement within an area. 

Menu Generation Program 

This program complements the Symbol 
Placement Program allowing the designer 
to create his own library of symbols. He 
traces a symbol or object on the digitiz- 
ing tablet or creates it on the graphic 
screen. Using this program, new acetate 
menus also may be plotted then placed 
on the Touch Control Station'^^ or 
MENU BOARD^M at the digitizing ta- 
blet. 

Texturing Program 

Replacing press-on texture transfers, this 
program contains a wide range of area 
and line textures; for example, bricks, 
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Figure 5. Using the symbols provided (or he can design his own), the designer is freed from templates 
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concrete, shrubbery, insulation, shingles, 
flooring, and simple crosshatching. Any 
area or object may be textured, even ob- 
jects within objects — the doughnut ef- 
fect. When dealing with overlaid objects, 
the first object selected is textured while 
the next selected object within (or over- 
lapping) the first is ignored. 

The densities of the texturing patterns 
may readily be changed and the patterns 
rotated or shifted. 

Additionally, the program will calculate 
areas or lengths of line that are textured 
providing the ability to automatically 
measure and cost textured areas. For ex- 
ample, the linear feet of eight-foot stud 
walls with insulation or the number of 
square yards of carpet would be auto- 
matically calculated and saved for cost- 
ing at a later time. 

Annotation Program 

As in all graphic applications, the text 
accompanying the drawings carries a sig- 
nificant amount of explanatory informa- 
tion. Therefore, seven fonts are provid- 
ed: Standard Leroy, Helvetica-Medium, 
Ero-Style, British Inserat, Prisma, Aries 
and Clarendon. The designer may also 
design his own letters. Characters are 
stroked and may be sized, rotated, and 
placed anywhere on the drawing. 
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Figure 6. Any area may be textured, even objects within objects. 
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Figure 7. A wide range of area and line textures are available through the Texturing Program 
Area/Line Measurement Program 



Figure 8. The Annotation Program includes seven 
fonts, four of the styles are shown here. 



This electronic planimeter allows the de- 
signer to identify areas for calculation 
even if they weren't textured. For exam- 
ple, he could trace each room in a build- 
ing and calculate the total square feet as 
well as that for each room. Or, he could 
outline a roofline and cost it. The design- 
er may also identify a number of closed 
objects or polygons and add them 
together for area calculation. 

After creating one or more closed ob- 
jects or shapes, such as rooms or map- 
ping boundaries, the designer can re- 
quest the program to calculate the area 
or perimeter of each selected shape and 



draw the resulting numeric data at any 
location "touched" on the drawing. By 
naming each object, a table of areas and 
perimeters can be produced. 

If selected, the table of areas and 
perimeters may be sent to the Cost Esti- 
mating Program. 

Cost Estimating Program 

This program counts the number of sym- 
bols on the drawing disk, the lengths of 
lines and textured areas, and then writes 
this information on the screen. The de- 
signer may call on a master material/cost 
file (or enter the labor and material cost 
for each) and the program will extend 
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and accumulate the material and labor 
cost for the entire project. For example, 
if the design contains 500 standard elec- 
trical receptacles, the designer can enter 
a cost of $153 per 1000 receptacles and 
the program will automatically calculate 
the cost for 500. 

Updating a master costing file is simple 
and quick. The designer enters the cur- 
rent cost of an item and the program au- 
tomatically updates the master costing 
file. This feature may be employed to 
generate a series of cost estimates re- 
flecting different bids. Cost estimating is 
more accurate, more efficient and very 
quickly done. 

Production Plot Program 

Final drawings are generated through 
this program. It is extremely flexible, al- 
lowing the designer to reproduce an en- 
tire drawing or only a specified part. He 
may overlay an infinite number of draw- 
ings in any sequence. He might ask for 
an architectural floor plan with or 
without texturing, annotation, symbols 
or details. Or he could include a site plan 
in the corner of a drawing. 

After previewing the plot on the screen, 
it may be plotted in any scale, resulting 
in an original drawing then readily dupli- 
cated in a blueprint machine. He can al- 
so communicate this information to 
another computer using the 4050 Option 1 . 

Utilities Programs 

Ten utility programs for the designer 
take the drudgery out of using computer 
equipment through simple "yes-no" 
questions. The designer may copy draw- 
ings from disk to disk, or onto the same 
disk, allowing use of one drawing as a 
base to make another drawing. 

Special Applications 

Arrigoni Computer Graphics has also 
tailored versions of TOUCH 'N 
DRAW^^ for specific disciplines and 
more programs are in the works. "They 
won't do any more than the basic CADD 
system, but they do it more efficiently 
for that particular trade or application." 
commented David Arrigoni. 

An example of a special application 
package is the Electrical/Electronics 
Schematics package. It has combined 
standard elements of the system to pro- 
vide a unique package for electrical engi- 
neers producing schematics drawings for 
electrical and electronic circuits. 
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Figure 9. Cost estimating is accurate, efficient and quickly done using the Cost Estimating Program. 




Figure 10. The Production Plot Program produces the final drawing. 
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The success of the Arrigoni Computer 
Graphics TOUCH 'N DRAW^^ can be 
attributed to the excellent user interface. 
The designer simply auto loads a tape. 
The program prompts for input and 90% 
of the questions require "yes-no" re- 
sponses. Prompts and questions use ter- 
minology famiUar to designers or drafts- 
men and purposely avoid 
"computerese." Visual feedback through 
messages and lights on the Touch Con- 
trol Station'^^ keep the user informed of 
where he is. If the designer has to leave 
his system for a while, the status lights 
let him know where he was when he left. 

Although TOUCH 'N DRAW^m was de- 
signed to open up the opportunity for 
small to medium sized firms to use 
CADD Systems, the Systems application 
extends to the largest architectural firms 
and facilitates planning and management 
for Fortune 1000 companies. Thus, the 
System can handle extremely large pro- 
jects; one customer is designing buildings 
totaHng over three miUion square feet. 

The total system (including the hard- 
ware, software, and training) may be 
purchased; or it may be leased at a 
monthly cost approximating that of an 
average draftsman. David Richards, 
President of Arrigoni Computer Graph- 
ics, indicates that productivity improve- 
ments of 3-5 times versus manual draft- 
ing are typical with this system. 
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Figure 11. Electrical engineers producing schematic drawings for electrical and electronic circuits might 
choose the special Electrical/Electronics Schematics package. 



If you have further questions about the 
Arrigoni TOUCH 'N DRAW^^ CADD 
System, contact Arrigoni Computer 
Graphics at 231 O'Conner Drive, San 
Jose, CA 95128 or phone (408) 286-2350. 



Note: As a service, TEKniques may publish no- 
tices of software, hardware and services from 
suppliers other than Tektronix. No evaluation 
or endorsement by Tektronix, Inc. of these 
products or services is implied by such publica- 
tion. Tektronix, Inc., expressly disclaims any 
obligation of warranty or support. 
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Digitized curves of constant nuclear polarization in nuclear D(d,n)He^ 
visual reference points. 



reactions. A point grid adds 



New PLOT 50 Digitizing Software 
Encodes Graphic Images 



by Paul J. Kristof 
Tektronix, Inc. 
Wilsonville, OR 

4052D07 PLOT 50 Interactive Digitizing 
solves the data entry problem for a vari- 
ety of applications. By coupling the digi- 
tizing tablet with the graphic display and 
computational power of the 4052 and 
4054 desktop computers, disk-based In- 
teractive Digitizing efficiently and conve- 
niently encodes graphic images for com- 
puter analysis or processing. Stripcharts, 
graphs, maps. X-ray photographs, 
electromicrographs, and other images are 
readily translated into machine digestible 
form. Immediate preview and editing 
help ensure the transmittal of "clean," 
error-free data. Mathematical functions 
calculate area, perimeter, centroids or 
Hne lengths. Document labeling and text 
may also be transmitted. 

Interactive Digitizing supports PLOT 50 
Standard File Format^ and Graphic Ex- 
change Format^. Curves encoded from 
stripcharts, or area and centroid values 



from digitized polygons may be sent to 
PLOT 50 Easy Graphing^ or PLOT 50 
Statistics^ for graphing or analysis. Pic- 
ture data can be sent to PLOT 50 Picture 
Composition^ for inclusion in illustra- 
tions. In any case, you need not re-enter 
the data. 

Data may be encoded in real world coor- 
dinate units and the X and Y axes may 
be independently scaled. For example, to 
digitize experimental data from a nuclear 
reaction, you could set X units to volt- 
age in Mevs and Y units to reaction an- 
gle in degrees. Documents larger than 
the tablet surface are easily handled. 

Interactive Digitizing consists of four 
major sections: 

TUTORIAL 
AUTOLOAD 
ENTRY/EDIT 
UTILITIES 

The TUTORIAL gives you a guided tour 
of Interactive Digitizing. It illustrates 



^Standard File Format is discussed in TEK- 
niques Vol. 4 No. 1. 

^Graphic Exchange Format is discussed in 
TEKniques Vol 5 No. 2. 



^Easy Graphing is described in TEKniques Vol. 
4 Nos. 2, 3 and 4. 

^Statistics: Disk-based Tests and Distributions is 
described in TEKniques Vol. 4 No. 5. 
^Picture Composition is described 
in TEKniques Vol. 5 No. 1. 



many of the features and shows a typical 
sequence of activities to create a digi- 
tized data file. 

The AUTOLOAD section sets up the op- 
erating characteristics of the package. 
Disk assignments and peripheral device 
selections are set or modified at this 
time. 

The ENTRY/EDIT section creates or ed- 
its digitized data files. 

The UTILITY section applies file and 
system manipulation functions. 

Digitized Data Files 

First, we'll take a look at the format of 
the digitized data file. 

Document features are recorded in the 
"digitized data file," an ordered list of 
objects. Coordinate data and document 
text is encoded in five object types: 

POINT 

A single (x,y) coordinate. 

POLYLINE 

A set of connected lines or circular 
arc segments. 

POLYGON 

A polyline in which the first and last 
points are the same (a closed figure). 

TEXT 

A set of scalable and rotatable charac- 
ters. 

SYMBOL 

A set of points, line segments, arcs 
and text (not necessarily connected) 
that can be located, scaled and rotat- 
ed as a unit. 

In addition to the graphic descriptions, 
each object has an object identification 
(ID) number, and may have an object 
name and a set of numeric or string at- 
tributes. The system assigns the object 
ID number when an object is stored in 
the data file. This identifies the object 
for editing. 

You may assign a thirty-six (max) char- 
acter name to each object. 

A powerful feature of the package is the 
ability to assign up to five unique attrib- 
utes for each object and (optionally) 
have the program prompt for these at- 
tributes. The attributes are specified as 
numeric or alphanumeric and named. 
The object's name and its attributes may 
then be used by software that has been 
custom-designed to look for and process 
them. 
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Thus, a data file might consist of: 

• The map of Arizona encoded as 
Polyline objects, with two 
numeric attributes: left county id and 
right county id. (See figure 1.) A sep- 
arate host program could then use the 
coordinate data and the attributes to 
reconstruct the counties as polygons. 

• The map of Oregon showing big game 
management units encoded as 
Polygon objects with an object name and 
a numeric attribute. The name of the 
area was entered for the object name. 
The attribute, UNIT CODE, identifies 
each polygon. Additionally, the area of 
each polygon was calculated as it was 
digitized. 

The UTILITY program. List Data 
File, may be used to output the size 
of each unit in square miles (figure 2). 
The area information could also be 
transmitted to the PLOT 50 Statisfical 
volumes for study. 

• The contours in figure 3 were encod- 
ed as Polylines and Polygons with a sin- 
le numeric attribute, LEVEL, to hold 
the elevation value for each line. 




Figure 1. A map of the counties of Arizona encod- 
ed as polylines. The numbers appearing adjacent 
to the lines are the object ID numbers assigned by 
the system. 



DATA FILE INFORMATION 






Dat3 file 


J BIGGAME 




Number of objects in file 


! 14 




Extent (min X, max X) 


: 2 r 205 




(min Y, max Y) 


: 18 r 159 




Control point coordinates 


! 1) , 

2) , 240 

3) 240 , 




Aspect ratio ( width/heisiht ) ! 1.02312513436 


Attributes Defined 






1 UNIT NO, (numeric 






Object Information 






1 C id* 103 Polygon 


Name: CHETCO 




Number of points 


38 




Extent (min X> max X)J 


S , 66 




(min Y» max Y)} 


20 , 71 




Perimeter ! 


182.008372897 




Area ; 


1773 




Centroid X»Y ! 


32.7490129724 


, 44.1400639218 


UNIT NO. ; 27 






2 Cid* 203 Polygon 


Nsmet SIXES 




Number of points ! 


44 




Extent (min Xr max X)J 


2 , 30 




(min Y, max Y): 


53 , 123 




Perimeter J 


168.563506783 




Area 


1074.5 




Centroid X.Y J 


16.602916085 , 


83.1729486583 


UNIT NO. ; 25 






3 Cid* 313 Poly=ion 


Hamei POWERS 




Number of points : 


40 




Extent (min X, max X); 


25 , 70 




(min Y» max Y): 


65 , 96 




Perimeter ! 


151.889451022 




Area ! 


818 




Centroid XtY t 


46.2703748981 


f 79.2726161369 


UNIT NO. ; 26 






4 L'id* 413 Polygon 


Name.* TIOGA 




Number of points 


43 




Extent (min Xf max X) { 


12 , 60 




(min Y, max Y)J 


89 , 144 




Perimeter 5 


196.457882569 




Area ; 


1691.5 




Centroid XjY J 


37.620652281 , 


116.923342201 


UNIT NO. : 24 







Figure 2. Data file contents are easily displayed 
through utility LIST DATA. 





INFORMATION 


Dota file 


: CONTOUR 


Nunber of objects in file 


: 15 


Extent (Min X, nax X) 


: -2.38751810418,22.9898676672 


(nin Y, nax Y) 


13.1786470166,112.662606778 


Control point coordinates 


: 1) 0,0 




2) 0,90 




3> 18,0 


Synbol file 


: None 


Current synbol selected 


: None 


Current node 


: Polyline 


Current object 


: Present 


Current object type 


: Polygon 


Hunber of points 


: 49 


Object ID 


: 10 


Object nane 




Nunber of attributes 


: 1 


Nane : LEVEL 




Ualuc : 1 




Window coordinotes <ninX, 


naxX) : -4.04780347797,24.6501530409 


<ninY, 


naxY) : 4,75488881373,117.801069538 


Hunber of objects 




diaitized in this session 


: 



Figure 3. Choosing menu item INFO displays the 
status of your current operation. 



Briefly, that is the structure of the digi- 
tized data file. Getting the image encod- 
ed from the document to a digitized data 
file is easy and flexible. 

EDIT/ENTRY 

Interactive Digitizing is menu driven for 
convenient function selection. The 
ENTRY/EDIT section is tablet menu 
driven. Simply locate the tablet menu 
anywhere on the tablet surface along 
with your document. To choose a func- 
tion, just place the tablet cursor over the 
appropriate menu box and digitize. The 
package prompts you for additional in- 
put. 

Tablet menu (figure 4) functions are gro- 
uped into seven functional blocks: 

• OBJECT ENTRY 

— mode selection 

— object insertion control 

— area/length/centroid calculation 

— point entry and immediate edit 

• DISPLAY CONTROL 

— highlighting of current object 

— redraw 

— window selection 

— point previewing 

• EDIT CONTROL 

— data file object sequence 

— object 

• SYMBOL CONTROL 

— symbol selection 

— scale and rotation setting 

• ENVIRONMENTAL PARAMETERS 

— feature selection 

— value setting 

— parameter display 

• ALPHANUMERIC KEYBOARD 

• SUPPLEMENTAL FUNCTIONS 

— plotting 

— setting new data file 

— display system information 

— extend axis 

— HELP 
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Figure 4. Tablet menu functions are grouped into seven functional blocks. 
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— end current session 

— access UTILITIES 

— redefine control points 

In addition to the tablet menu, a User- 
Definable Key (UDK) overlay is 
provided (figure 5). All the EDIT func- 
tions are duplicated on the UDK over- 
lay. By using the UDKs, the 4050 key- 
board, and the thumbwheels or joystick, 
all editing may be performed at the 4050 
with no need to reference the graphics 
tablet. 



INTERACTIVE DIGITIZING 



TAPE 1 DISK 1 TABLET MENU 1 





I INSERT I MOVE I DELETE I 

ARC I POINT I POINT I 



1 EDIT OBJECT I EDIT I EDIT I 

ATTRIB I SCA & ROT ■ TEXT 1 



Figure 5. All the EDIT functions are duplicated 
on the UDK overlay. 

The object entry functions of begin arc, 
delete last point, and end object may also 
be entered from the optional four button 
tablet cursor. 

You may preview the data on the 4050 
screen before entering it into the data 
file. Prompt messages appear along the 
left edge of the square data entry display 
area (figure 6). A character in refresh, 
above the left edge of the display area 
reports the current operational status of 
the package. 




Figure 6. A blinking character above the data dis- 
play area provides status information: 
E - points may be digitized or tablet menu items 
selected 

I -Input from the tablet keyboard 
M - Edit (modify) mode 
D -Display Coordinate 
P - Preview Coordinate 



Special Features 

Interactive Digitizing includes a number 
of features to make digitizing easier, 
quicker, and more convenient for you. 
These include: 

• Immediate Editing — While entering 
an object, you can delete the last digi- 
tized point or the current object, edit 
the object name or attributes, or re- 
specify the scale or rotation of text 
and symbol objects without explicitly 
entering the EDIT mode. This makes 
input errors easy to correct. 

• Audio Feedback — A single bell sig- 
nals acceptance of a digitized point, 
and multiple bells signal a warning or 
improper input message. They may be 
turned on or off. 

• Selectable Viewing Windows — You 

may select from three different win- 
dowing functions the document area 
you wish to view on the screen. Re- 
draw functions are optimized to ac- 
cess only those objects intersecting 
the currently selected window. 

• System Configuration Files — You on- 
ly set peripheral device addresses 
once, or when they change. The sys- 
tem automatically remembers them. 

• Axis Extension — You can easily han- 
dle documents larger than the tablet 
surface, such as long stripcharts. Just 
select two points, reposition the docu- 
ment, and redigitize the original two 
points. The system automatically ad- 
justs the tablet to user coordinate sys- 
tem transformations. 

• Tablet Menu Keyboard — By 

selecting the tablet menu keyboard, 
you can answer all ENTRY/EDIT 
prompts from the tablet, without re- 
turning to the terminal keyboard. 

• Area/Length/Centroid Computations — 

You may compute at any time and di- 
rect the output to a line printer. The 
results of these computations may al- 
so be placed in the Standard Format 
File and Graphic Exchange File. 

• Auto Mode for Repetitive Entry — 
Auto object end combined with poly- 
gon closure (automatic closure of a 
polygon object when the next point 
digitized is within a user-specified 
tolerance of the first point), require 
object names and require object attrib- 
utes increases efficiency for repetitive 
data entry. As each object is closed, 
the program will prompt for its name 
and attributes, then automatically 



store it in the digitized data file. Com- 
bining the four button cursor and auto 
object end allows for repetitive entry 
of similar object types without having 
to return to the tablet menu. 

• Snap-to- Grid/ Axis Lock — You may 

elect to digitize points in user-speci- 
fied increments, for example, 100 
feet. The next point digitized is 
snapped to the nearest grid point with 
snap-to-grid on, and/or the nearest 
axis with axis lock on. 

• User-Specified Coordinate System — 

You digitize your application coordi- 
nate units with independent scaling of 
the axes. 

• HELP — 

HELP will instruct you in 
the operation of any menu box or 
User-Definable Key. 

UTILITIES 

Interactive Digitizing provides a full 
complement of utilities programs. The 
UTILITIES section is accessed from the 
4050 keyboard. A master screen menu 
controls the function selection (figure 7). 
The User-Definable Keys interrupt any 
utility and return control to the start of 
the currently active utility, to the master 
selection menu, or end the current ses- 
sion. 



« PLOT 59 INTERACTIUE DIGITIZING UTILITIES >> 



INTERACTIUE DIGITIZING FILE UTILITIES 

1. Get Files 

2. Put Files 

3. Delete Files 

4. Renane Files 

5. Directory 



IHTERftCTIME DIGITIZING SYSTEM UTILITIES 



6. Edit/Display Synbol File 

7. Change Disk Configuration 

8. Edit Default EnvironHcntal Paraneters 

9. Change Harduare Configuration 



HERA 


L IHFORHATION 




10. List Data File 

11. HELP 




12. Return to Entry/Edlt 


lect 


one of the obove: 



Figure 7. The UTILITIES routines are accessed 
through the screen menu. 

Three major functional groups comprise 
the utilities: those dealing with data files, 
those which modify the current system 
configuration, and those providing gener- 
al information. 

Interactive Digitizing recognizes five sep- 
arate file types: 
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Digitized Data — encoded document 
Symbol — symbol set 

GMX Picture — -n 
GMX FONT - ( PLOT 50 

f transmittal 
Standard Data — ) files 

UTILITIES programs rename, delete, 
and list a directory of all files. In addi- 
tion, the standard functions of GET 
FILES and PUT FILES transfer files be- 
tween mass storage devices and other 
PLOT 50 software products. 

Symbol files (figure 8) may be created 
from digitized files, edited, displayed or 
plotted by the EDIT/DISPLAY SYM- 
BOL FILE utility. 

The current or default values for disk se- 
lections, peripheral device addresses, 
and environmental parameters can be 
changed any time by using the other 
UTILITIES. 

The General Information utility, LIST 
DATA FILE, provides screen or line 
printer output of coordinates, attributes, 
and computations associated with a digi- 
tized data file. 

As with the ENTRY/EDIT section, 
HELP is available for refresher informa- 
tion on how each utility operates. 




Figure 8. Symbols created using Interactive Digi- 
tizing. Symbols may be included in any digitized 
data file. 

DATA FILES 

Three major levels of access to digitized 
infomration is provided: GMX, Standard 
Data and Digitized Data files. 

The information in the digitized data file 
consists of that associated with the file 
as a unit, e.g., number of objects in the 
file, data file extent, aspect ratio, and 
that associated with each specific object, 
e.g., number of points per object, object 
ID, object name, coordinates, object at- 
tributes, and computations. 



All of the information in a digitized data 
file may be stored in the GMX file trans- 
fer format. Data file global information is 
recorded in the file descriptor records, 
and object specific information is record- 
ed as object descriptor records and point 
descriptor records^. 

Object geometry and object attributes 
(numeric only) may be output in two 
separate Standard Data files (see figures 
9a-9b). 

In addition to the GMX and Standard 
Files, the digitized data file structure is 
fully documented in the manual for those 
users desiring direct access to the digi- 
tized data base. 



^Refer to TEKniques Vol. 5 No. 2 for a full 
description of GMX Picture File 
format. 



4052D07 PLOT 50 Interactive Digitizing 
is a sophisticated, yet easy-to-use system 
supporting a varied equipment configura- 
tion. A 4052 or 4054 with 64K of memo- 
ry, a 4907 File Manager and 4956 Graph- 
ics Tablet is the minimum configuration. 
However, it will also support a 4907 File 
Manager with Option 30 or 31 (dual or 
triple drive units). 

Editing input may be from the 4054 
thumbwheels or a 4952 joystick. 

Graphics output may be directed to a 
4662 or 4663 Plotter; listing output may 
be directed to a 4641 Printer. 

For more information on Interactive Dig- 
itizing, contact your local Tektronix 
Sales Engineer. 



Object-name 


OBJECT ATTRIBUTE STANDARD DATA FILE 
VARIABLES: 




Object 
Type 


Centroid 

X 


Centroid 

y 


Length 


Area 


Scale 


Rotation 


Symbol 
ID 


Attribute 
1 




Attribute 
n 



























B 
S 
E 
R 
V 
A 
T 



























N 
S 
















__ 












V 


J 




Variables are included only a 
"or example, if symbols are no1 


they apply to an included object type, 
written then symbol ID is not included. 




Variables 




3BJECT TYPES: 1 Point 

2 Line Length 

3 Polygon Centroid - x, centroid - y, area, length 

4 Text Scale, rotation 

5 Symbol Scale, rotation, symbol ID 



Figure 9a. When object attributes are transferred, an Object Attribute Standard File is the result. 





OBJECT GEOMETRY STANDARD DATA FILE 
VARIABLES 




Object-name 


B 
S 
E 
R 
V 
A 
T 
I 

N 
S 


Object 
Type 


X Coord. 


y Coord. 


Point 
Type 












NOTE: No alpha-numeric q 
variables are supported in 
any way. This includes alpha 
attributes and text description. 


BJECT TYPE: 1 = Point POINT TYPE: 

2 = Polyline 1 

3 = Polygon 2 

4 = Text 

5 = Symbol 


Line Segment 
= ARC Start 
= ARC Middle 



Figure 9b. When object coordinates are transferred, an Object Geometry Standard File is the result. 
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Graphic Systems Workshops 



4050 Series Graphic Computing Systems 
Workshops are designed to help you get 
the most out of your systems. These 
week-long workshops are held in several 
locations around the country. Dates and 
locations for these workshops are de- 
tailed here. 

The workshops teach the appHcation of 
BASIC and the concepts of desktop 
computer graphics. The classes empha- 
size integrating and using TEKTRONIX 
4050 Series Graphic Computing Systems 
with their associated peripheral equip- 
ment. The full range of Graphic Compu- 
ter System equipment is available in the 
workshops. 

The workshops combine lectures and 
exercises to develop a working knowl- 
edge of system capabilities. Laboratory 
sessions complement and reinforce lec- 
ture information, through developing 
practical examples. When you complete 
a session, you'll have the skills neces- 
sary to apply the system capabilities to 
your own tasks. 



Locations and Schedules 

The .workshops are scheduled through 
four basic locations, as shown on the 
schedule. Currently, the following places 
and times are scheduled: 



Santa Clara, CA 
Rockville, MD 
Rockville, MD 
Santa Clara, CA 
Dallas, TX 
Santa Clara, CA 
Rockville, MD 
Rockville, MD 
1981 

Santa Clara, CA 
1981 

Dallas, TX 
Santa Clara, CA 
Vancouver, BC 

For Information 



Sept. 14-18, 1981 
Sept. 21-25, 1981 
Oct. 5-19, 1981 
Oct. 12-16, 1981 
Oct. 26-30, 1981 
Oct. 26-30, 1981 
Nov. 2-6, 1981 
Nov. 30-Dec. 4, 

Nov. 30-Dec. 4, 

Dec. 7-11, 1981 
Jan 4-8, 1982 
Jan 18-22, 1982 



If you're interested in attending one of 
these sessions, or think you might be, 
you can get additional inforamtion by 
contacting your local Tektronix Sales 
Engineer. Or you can call Sam Dunn at 
(503) 644-0161, ext. 8660. She can pro- 
vide information on other workshops as 
well, such as the recently-established 
4020 Series Terminal workshop. 



450K Cartridge Tape 



Have you ever wished you could: 



FIND j3 

MARK 1,450000 



without getting an error message indicat- 
ing the end of tape has been found? 

Now you can. A tape is now available 
that can record up to 450,000 bytes, 50% 
more than the standard tape. The new 
tape can be ordered using part number 
119-1439-01 for a box of five. Contact 
your local Tektronix representative. U.S. 
price for the box of five is $200. The 
standard tape is still ordered by part 
number 119-0680-01 for a box of five. 
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John Bartholow, a Resource Analyst with 
the Fish and Wildlife Service in Fort Col- 
lins, CO, requests: 

Would you please explain how the BA- 
SIC command RENUMBER works. 
That is, what is the algorithm used to 
perform the renumbering? 

Dan Taylor, Design Engineer at Tektro- 
nix, explains. 

Each line of code in memory includes 
(among other things) the internal memo- 
ry address of the preceding line of code, 
the hardware address of the next line of 
code, the line number of the present line 
of code, and the code. 



h/w address 
of next line 
of code 



\ 



(statement 
number) (code) 



h/w address 
of back 
line of code 



100 



h/w address 


h/w address 




of next line 


of back 


117 


of code 


line of code 





h/w address 
of next line 
of code 



A_ 



h/w address 
of back 
line of code 



200 



h/w address 
of next line 
of code 



h/w address 
of back 
line of code 



224 



h/w address 
of next line 
of code 



h/w address 
of Back 
line of code 



300 



GO TO 200 



IF . . THEN 300 



GO TO 100 



REM 1 



REM 2 



h/w address 
of next line 
of code 



h/w address 
of back 
line of code 



346 



h/w address 
of next line 
of code 



h/w address 
of back 
line of code 



416 



REM 3 



GO TO 200 



When you key in the command: 

RENumber 1000, 10, 200 

this is what happens when it's executed. 

Step 1 . The system checks the 

first line affected (i.e., 
200). 

Step 2. It verifies that the new 

first number won't clash 
with non-renumbered 
code. If it does, it prints 
an error message and 
aborts execution. In other 
words, you can't change 
the sequence of your code 
through the RENumber 
command. 



Step 3 . It uses the space allocated 

for the back pointers as 
scratch space to store the 
new line numbers. At this 
point each statement in- 
cludes (among other 
things), the hard address 
of the next line of code, 
the new line number, and 
the old line number. 

Step 4. It searches through all in- 

ternal code for statements 
containing a line number, 
i.e., GOTO, GOSUB, 
GOSUB OF, IF . . . 
THEN, etc. When found 
it changes the line num- 
bers therein to the new 
line numbers. 

Step 5. Once this is done, it 

moves the new line num- 
bers from the scratch area 
(back pointer area) to the 
line number area and re- 
creates the back pointers. 

Because it uses the back pointer storage 
space for the new line numbers, the RE- 
Number command execution doesn't re- 
quire additional 4050 memory. 

Step 1. Check first line affected. 
X 
RENumber 1000, 10, 200 

/ 
Step 2. Does new number clash with old? 



h/w address 
of next line 
of code 



h/w address 
of back 
line of code 



100 



h/w address 
of next line 
of code 



h/w address 
of back 
line of code 



117 



h/w address 
of next line 
of code 



Step 3 Step 5 
1000 



200 



h/w address 
of next line 
of code 



1010- 



224 



h/w address 
of next line 
of code 



1020- 



300 



1000 — step 4 
GO TO 200 



1020 — Step 4 
IF . . THEN 300 



GO TO 100 



REM 1 



REM 2 



h/w address 
of next line 
of code 



1030 ■ 



346 



h/w address 
of next line 
of code 



1040 



416 



REM 3 



1000 — Step 4 
GO TO 200 



.^9 
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Operator Digitize 
on the 4663 

Hugh Wilson and Grady Allman of Amer- 
ican ENKA Company, Enka, NC sent in 
their observations on the 4663 Operator 
Digitize Mode on the 4663 Plotter. 

Plotter. 

We could not get the documented "Oper- 
ator Digitize" to work correctly on the 
4663 Plotter. Subsequent firmware revision 
(to level 4.0) and programming tips (TEK- 
niques Vol. 4 No. 6, page 14) failed to resolve 
all the problems. 

As a result of many attempts, we hap- 
pened upon an unexpected and unortho- 
dox solution. Instead of using the GPIB for- 
mat described in the manual for the Plotter 
command, the RS-232 version of the com- 
mand written in a GPIB BASIC program 
works better! Also, we found that INIT did 
not clear the memory of the Plotter as ex- 
pected but the additional WBYTE @B,4: 
(where B is the primary listen address of the 
Plotter) was required to clear Plotter mem 
ory. Using both of these together appears to 
work correctly, (i.e., as reported in your 
documentation). 

Mike DeAndrea and Javad Farjami, Tek- 
tronix Technical Support specialists at 
Wilsonville, OR, explain the documenta- 
tion error and how INIT and WBYTE 
work. 



The wrong command was inadvertently 
inserted in the "Commands" section of 
the Operator's manual. The DAB com- 
mand for "Operator Digitize" is 
PRI(gD,32:"AG",(# of points) and is 
correctly listed in Appendix I — Com- 
mand Summary. 

Init sends Interface Clear which causes 
the GPIB interface to clear addresses to 
itself and to clear the Service Request 
status. However, as defined in the 



IEEE488 standard, it has no other effect 
on the operation of the plotter. The De- 
vice Clear message according to GPIB 
convention does clear both input and 
output buffers of the plotter and is sent 
by WBYTE @20: for all devices on the 
GPIB or WYBYTE (§32 + (device ad- 
dres),4: for a specific device. 



100 


PRI "THIS PROGRAn UTILIZES 


OPERATOR DIGITIZE WITH THE 4663 


PLOTTER." 


1 ]0 


PRINT 


" USE MOVE AND DRAW 


BUTTONS ON 


PLOTTER TO ENTER ALL 


POINTS.- 


120 


PRINT 


"YOU MAY USE 'LAST POINT' BUTTON 


TO 


STOP DIGITIZING." 




130 


PRINT 


' NOTE: AFTER ENTERING HAXinun 


NUMBER OF POINTS. THE 


NEXT •• 


140 


PRI "POINT ENTERED WILL BE 


TRANSMITTED 


AS 


THE 'LAST POINT' 


WHETHER" 


150 


PRINT 


■ THE DRAW, MOVE. OR 


LAST POINT 


BUTTON IS PRESSED!" 




160 


PRINT 


" ENTER GPIB ADDRESS 


OF PLOTTER 








170 


INPUT 


A 










180 


REMARK 


The VARIABLE B is The primary 1 


isTen address for The 


ploi ler . 


190 


B=A+32 












200 


ON SRO 


THEN 320 










210 


REMARN 


This WBYTE commond 


s necessary 


lO 


clear ihe plot ler 


memory . 


220 


WBYTE 


SB. 4; 










230 


PRINT 


' GGG TYPE IN THE MAXIMUM NUMBER 


OF 


POINTS TO DIGITIZE ; "; I 


240 


INPUT 


P 










250 


REMARK 


P IS INCREMENTED TO 


ALLOW FOR ' 


LAST POINT' TRANSMISSION | 


260 


P=P+1 












270 


PAGE 












280 


PRINT 


8A,32:"AG",P 










280 


REMARN 


z=0 means MOVE 










300 


REMARK 


z=l means DRAW 










310 


REMARK 


z=2 meons LAST POINT 








320 


FOR U 


1 TO P 










330 


INPUT 


§A,32:X.Y.Z 










340 


CO TO 


Z OF 370,390 










350 


MOVE X 


.Y 










360 


GO TO 


380 










370 


DRAW X 


.Y 










380 


NEXT I 












390 


WBYTE 


SB,4> 










400 


END 
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* Editor's 
Note 



Applications Library Programs 
Consolidated 

Quicker turnaround time and dollar sav- 
ings for users should be the result of the 
just-completed Applications Library 
revised order procedure. 250 programs 
have been consolidated into 27 
tapes/disks. An accompanying article de- 
tails the reorganization. 

TEKniques Schedule 

We started the year on schedule with 
TEKniques Vol. 5 No. 1. But due to the 
Applications Library changeover, TEK- 
niques' schedule slipped and Vol. 5 No. 
2 was distributed in May rather than 
March. Unfortunately, we slipped again 
on No. 3, which is being distributed No- 
vember 11. We will be back on track; 
however, the time remaining allows us to 
do only one more issue. TEKniques Vol 
5 No. 4 will be out December 15. We 
feel the streamlined order procedure for 
the Applications Library will be worth 
the inconvenience. 



Contest Winners Announced 
in Next Issue 

The Applications Library program con- 
solidation required more time than antici- 
pated. Consequently, judging of the 
Graphic Contest was delayed. The judg- 
ing is now in progress and winners will 
be notified by September 1 , and an- 
nounced in the December issue of TEK- 
niques. We apologize for the delay. 



Back Issues and Reprints from 
TEKniques 

TEKniques is in its fifth year of pubHca- 
tion. Issues from the first three years 
(Volumes 1 — 3) have all been distrib- 
uted. However, most of the articles from 
those issues have been assembled by ap- 
plication area and are available in the 
following reprints : 

Engineering and Design AX -4449 

Mapping AX 4460 

Data Acquisition and Analysis . . AX4450 
Business Graphing and 

Reporting AX -4451 

Peripherals and ROM Packs . . AX -4452 



If you need an article from one of these 
previous volumes, and don't have your 
copy, one of the reprint sets will Hkely 
fill your needs. To obtain a copy of one 
of the reprint volumes, just contact your 
local Tektronix Office or the Applica- 
tions Library Office serving you. 

And, of course, back issues of TEK- 
niques Vol. 4 (1980) and Vol. 5 (1981) 
will continue to be available from the 
4050 Series Applications Library office 
that serves your area. 



Programming Tips Handbook 

The programming tips from the first 
three years have been collected into a, 
handy booklet which is included in the 
Programming Aids T2 tape documenta- 
tion (part #062-5972-00). 

Check Your 4907 File Manager 

The first programming tip "Disk Change 
May Damage 4907 Files" contains im- 
portant information. Please follow the in- 
structions in that tip to check the 
operation of all units of your 4907 File 
Manager. 



18 



Tekniques 
Vol. 5 No. 3 




Disk Change May Damage 4907 Files 



by Jack Gilmore 
and Mike DeAndrea 
Tektronix, Inc. 
Wilsonville, OR 

The disk change circuitry in the 4907 de- 
tects when a disk is removed. It prevents 
forwarding of information from one disk 
to the next when changing disks. The 
change is detected differently, depending 
on which drive was used last. 

You can verify that the circuitry is work- 
ing properly without disassembling the 
4907 by performing the following proce- 
dure: 



Step 1 : 


Type "UNIT 0" 


Step 2: 


Insert a formatted scratch 




diskette in drive and 




type 




CALL "MOUNT", 0,A$ 


Step 3: 


Remove and reinsert the 




diskette in drive 0. 



Step 4: Type "DIR". A disk not 
mounted error should ap- 
pear if the circuitry is 
working. 

Step 5: Remount the disk: CALL 
"MOUNT",0,A$. 



Step 6: 

Step 7: 
Step 8: 



Type CALL"DSTAT",3,A$ 

(to select 

some other non-existent 

drive). 

Remove and reinsert the 
diskette in drive 0. 

Type "DIR". A disk not 
mounted error should 
again appear if this part of 
the disk change circuitry 
is working. 



Repeat this procedure for the other 
drives in your system, replacing the in 
Step 1, Step 2, Step 3, Step 5, and Step 
7 with the appropriate drive number. 

If problems are encountered — if the er- 
ror messages don't appear — contact 
your local Tektronix Service Center. 



Convert Decimal to Multiplier Notation 



by Mike Wadzita 
Tektronix, Inc. 
Rockville, MD 

The following subroutine may be useful 
to 4050/492P spectrum analyzer users or 
may apply to other applications that in- 
volve frequency information. The 
subroutine will convert a numeric value 
to its equivalent multiplier format for 
printing, i.e.. Hertz, Kilohertz, Me- 
gahertz, or Gigahertz. A simple drive 
program is included. 



lee iNiT 




lie REH SIMPLE TEST PROGRAM - 


... 


129 FOR I«8 TO 11 




139 F«l.234*19tl 




149 PRINT "I"|Fn >l"l 




159 GOSUB 219 




168 NEXT I 




179 END 




299 REM CONVERT DECIMAL • TO 


MULTIPLIER NOTATION 


219 Q$»''eKMG" 




229 F«F*1.9E+19 




239 A*«STR<F) 




249 A-POSCAfj-EM) 




259 D$»SEG<A$,2,A-2) 




269 M»UAL<D$) 




279 Dt»SEG<A$,A+2,LEN<A$)) 




289 E>UAL<D$)-19 




299 M«M*19t<E-3*INT<E/3+9.33)) 




399 C*«SEG(Q$,1+INT<E/3),1) 




319 PRINT Mr "jC$rHz" 




329 RETURN 




1.234 > 


1.234 Hz 


12.34 > 


12.34 Hz 


123.4 > 


123.4 Hz 


1234 > 


1.234 KHz 


12349 > 


12.34 KHz 


123499 > 


123.4 KHz 


1234999 > 


1.234 MHz 


1.234E+7 > 


12.34 MHz 


1.234E+8 > 


123.4 MHz 


1.234E+9 > 


1.234 GHz 


1.234E+19 > 


12.34 GHz 


1.234E+11 > 


123.4 GHz 
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Auto Log-On for Honeywell TSS 



by Andy Galewsky 
Big Thicket National 
Preserve 
Beaumont, TX 

This auto log-on routine is set up for 
Honeywell TSS. The program assumes 
you know how to turn on the modem 
and connect the phone to it. 

The loop in statement 200 allows the 
connection to settle down before sending 
the carriage return to begin the log-on 
procedure. 

On the Honeywell, the clear-to-send 
character is a Control-Q rather than a 
carriage return. Therefore, statement 260 



sets the alternate EOL (end of Hne) char- 
acter to Control-Q which enables the 
4050 to recognize the request for the 
password. If this were not done, the pro- 
gram would loop endlessly when the 
mainframe sent the password request. 
The alternate EOL character is reset be- 
fore the program is exited. 

The proper account-number password 
sequence must be inserted into statement 
320. 

This short program offers some interest- 
ing possibilities. Instead of a call "TER- 
MIN" at statement 340, you could have 
a BASIC program running in the 4050 is- 
sue commands to the mainframe that 
would be transparent to the user. 



1 REM Auto Log-on Routine 

2 INIT 

3 M$«CHR<13) 
188 PAGE 

118 REM Initialize the conn interface or set paroneters 

120 CALL "CMINIT" 

138 REM CALL . . . 

148 REM CALL . . . 

158 REM CALL . . . 

168 DIM A*<408) 

178 PRINT "Please turn on Moden. Dial 838-3761. Log-on u: 

188 PRINT "<<<attenptin3 to connect to renote >>>" 

198 CALL "CMSET" 

288 FOR I"l TO 5e8+2258*<RND<e)>8. 2) 

218 REM DO NOTHING 

228 NEXT I 

238 REM SEND CR 

248 PRINT 848: M$ 

258 REM Set alternate EOL to CTL-Q 

268 PRINT 837,0:17,255,255 

278 INPUT XAdlM 

298 REM Reset EOL to CR 

388 PRINT 837,8:13,255,255 

320 PRINT e40:"Account«*Pas$uorcl" 

330 PRINT "<<< Logged on. Begin ... >>>" 

340 CALL "TERMIN" 



Switchback Plotting 

by Stan Jensen 

State of California 
Air Resources Board 
Sacramento, CA 

Many programs use data arrays and 
commonly output the contents from top 
to bottom, in the left-to-right order that 
printers use. When the number of col- 
umns and rows is small or the output is 
to the 4050 display, the technique is easy 
to program. However, when using the 
plotter, extra time is taken for the pen to 
move from the right column back to the 
left column for starting the next row. 

When plotting large arrays and using the 
low speed setting of the 4662 Plotter, the 
following technique can save time. 



LIS 

lee REM "Switchback" Output 

U8 INIT 

129 Hl-13 

13d H2-18 

140 B«l 

15d J1«H2 

160 J2-1 

170 J3»-l 

175 D»l 

180 FOR R«J1 TO J2 STEP J3 

190 M«ltt+NU<NOT<B)> 

200 I2-HUB+1«(N0T(B)) 

210 I3"1»B'-U(N0T(B>) 

220 FOR C-Il TO 12 STEP 13 

230 REM Plot or print data at colunii C, 

240 REM For txanpic: 

250 MOVE W!C*10-5,R*10-5 

260 PRINT (D:"*") 

270 NEXT C 

280 B>NOT(B) 

290 NEXT R 

300 END 



The variable B controls the horizontal di- 
rection of each row: 

B = l for left-to-right 
B=0 for right-to-left 

Line 280 reverses the direction used on 
the previous row. In addition to saving 
time when plotting, this feature will often 
cause observers to ask "How did they 
do that?" 



Easy Curves Revisited Again 

by Richard Stage 

Stage Engineering, Inc. 
San Diego, CA 

I finally got around to trying the Easy 
Curves routine featured in TEKniques 
Vol. 3 No. 4 and again in Vol. 3 No. 8. 
However, I found it still divided by zero. 
Line 460 appears to be in error. It should 
read the same as line 380: 



460 M2»<X3-X2)/<Y2-Y3) 



I made this change and it seems to work. 
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Omn-Direction Arrows Update 



by Ir. A. C. Visser 

Institute for Land and 
Water Management 
Wageningen, 
The Netherlands 

The calculation of the coordinates for 
drawing an arrow as described in TEK- 
niques Vol. 4 No. 6 can be done much 
easier than is listed in the program. The 
following program positions and orients 
the arrows in the same way, i.e., move 
the plotter joystick until the arrow tail is 
positioned, then press User-Definable 
Key (UDK) #1. Next, position the ar- 
row head and press UDK #1. The arrow 
will be drawn. Continue until all arrows 
requested have been positioned and 
drawn. 



The differences between the old version 
and the new version are: 




1 INIT 

2 SET KEY 

3 GO TO 102 

4 GO TO 302 

5 REM »*» KEY NO. 1 IS TO ENTER DATA »»<• 

90 REM HH THIS IS A SUBROUTINE TO DRAW ARROWS ON SCREEN > 
92 REM «» IN ANY DIRECTION ** 
102 SET DEGREES 

104 L1=l 

105 L2=0.5 

170 PRINT "LNO. OF ARROWS: "; 
180 INPUT Nl 
185 PAGE 
230 DIM G(N1 ,4) 
240 FOR 1=1 TO Nl 
250 T=0 

260 GIN @l :V,W 
270 MOVE V,W 
280 PRINT 932, 18:5 
290 PRINT 932.24: " | " 
300 GO TO 260 
302 GIN V,W 
304 RDRAW 0,0 

306 PRINT " GGG " ; 

310 PRINT 932, 18:0 

315 REM KM CHECK FLAG TO SEE IF INPUT IS THE TAIL OF 

ARROW (1ST ENTRY) 
320 IF T=1 THEN 370 
330 GCI, l)=V 
340 G(I,2)=W 
350 T=l 
360 GO TO 260 

365 REM MH FOUND DELTA X AND DELTA Y 
370 M1=G(I, I )-V 
380 M2=G(I,2)-W 

385 REM H» CHECK TO SEE IF IT IS A SAME POINT 
390 IF Ml=0 AND M2=0 THEN 690 
500 B3=1/S0R(M1-"2h-M2'~2) 
510 BI=M1»B3 
520 B2=M2mB3 
530 MOVE G(I, 1 ),G(I,2) 
540 G(I,3)=V+Lt»<-BI 
550 eCI,4)=W+LlHB2- 
560 DRAW G(I,3),G(I,4) 
570 RDRAW L2«B2,-L2mBI 
580 DRAW V,W 

590 DRAW V+Lt«Bl-L2HB2,W+Lt»B2+L2»Bl 
600 DRAW G(I,3),G(I,4) 
610 GO TO 710 
690 PRINT "NO ARROW" 
700 1=1-1 



Differences between the old version (TEKnIques 4.6 page 21) and 


the new version (developed by Ir . A . C . V I sser ) of drawing omni- 


directional arrows. There are in the new version no particular 


situationsl 


DELETED: 


100, 100 


1 10, 160 


190,220 


395,490 


540,680 


720,990 


CHANGED: 


3 GO TO 102 


4 GO TO 302 


170 PRINT "LNO. OF ARROWS: " ; 


230 DIM G(N1,4) 


370 M1=G(I, 1 )-V 


380 M2=G(I,2)-W 


NEW: 


104 Ll=l 


105 L2=0.5 


302 GIN V,W 


304 RDRAW 0,0 


306 PRINT "GGG"; 


540 G(I,3)=V+LUB1 


550 G(I,4)=W+L1«B2 


550 DRAW G(I,3),G(I,4) 


570 RDRAW L2hB2,-L2«B1 


580 DRAW V,W 


590 DRAW V+L1»B1-L2kB2,W+L1»B2+L2hB1 


600 DRAW G(I,3),G(I,4) 


610 GO TO 710 


720 END 



The new version does not force the near 
horizontal or near vertical lines to hori- 
zontal or vertical as in the old version. 

By changing the values LI and/or L2, it 
is possible to change the dimension of 
the top of the arrow. (LI and L2 have 
the same values as the old version.) To 
draw other tops of the arrows you can 
use program alterations: 



An other possibility (see figure). 






LI 


. 


CHANGED: 
540 G(I,3)=V 
550 G(I,4)=W 


L2 






\ 


570 RDRAW L1hBI+L2wB2,LUB2-L2hB1 a 
580 RDRAW -2mL2hB2,2«L2hB1 
530 REM 








/^B 




A:G( 
B:G( 


, 1 ),G( 
,3),G( 


,2) 


Yet an other possibility (see figure). 








CHANGED ONCE MORE: 

580 RMOVE -2«L2»*B2,2hL2hB1 




^\ 


^ 


^ 



I use arrows to check digitized data. 
When digitizing lines, for example roads, 
the instructions are to stop on each knot 
of the lines. To check digitizing, the ar- 
rows are drawn on the beginning and 
ending of each Hne segment. 




Determining if a String is Defined 



by Herman D'Hondt 
Tektronix, Inc. 
Sydney, Australia 

Some time ago when writing a program 
that consisted of several overlays, I had 
to fmd a way to let the program deter- 
mine whether or not a certain string vari- 
able had been defined (in a previous 
overlay). 

Several methods came to mind immedi- 
ately, including: 



169 IF LEH<(^$)>e THEN 1908 

100 «*««$«.* 1234" 

110 IF UAL<A*)«1234 THEN 1000 



Unfortunately, these will only work if A$ 
has been defined, or at least set to a 
null-string. If A$ is undefined, those and 
similar checks will generate a fatal error, 
and the program will abort. 

After some thought, I came up with the 
following little routine: 



100 Af-REPCM,©) 

110 IF LEN(A$>>0 THEN 1000 

120 INPUT A$ 



The REP function in line 100 does two 
things : 

(a) If A$ has been defined previously, 
it is left unchanged by inserting a 
null-string at character position 1, 
and deleting characters. 

(b) If A$ is undefined, it is defined as 
a null- string. 

Either way, line 110 checks to see if A$ 
actually contains data. If not, line 120 
asks the user for input. 

Editor's Note: This routine was also con- 
tained in "Program Initialization," Vol 4 
No. 6. 
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Area Calculation — Update No. 1 



by D. F. Davey 
Department of 
Physiology 
McGill University 
Montreal, PQ, 
Canada 

The area calculation routine provided by 
Bernie Gunn (TEKniques Vol. 4 No. 8) 
can be simplified: 

REMOVE ABS from line 3100 
DELETE lines 3110, 3130, 3140 



Furthermore, the restriction that "the 
area must be digitized in a clockwise di- 
rection" only applies if one insists that 
the printed area be positive. The restric- 
tion can be dropped and positive results 
ensured by changing A3 in line 3160 to 
ABS(A3). 



Area Calculation — Update No. 2 



by Stan Jensen 

State of California 
Air Resources Board 
Sacramento, CA 

While testing "Area Calculation" (TEK- 
niques Vol. 4 No. 8) on a circle with a 
calculated area of 7854 units, we found 
that the program seems to have a logic 
error in statement 3100 and will occa- 
sionally generate a syntax error if 
statement 3120 is branched to for the fi- 
nal point. Below is the correct version. 



a counterclockwise direction. The new 
version operates significantly faster. 

Editors Note: Statement 3130 in the origi- 
nal version should have read: 

GOTO 3150 



3890 REM: Begin area calculation 

3819 A1«I 

3028 RETURN 

3830 REM: End area calculation 

3048 A2=I-1 

3058 REM: A3=Total area 

3060 A3»0 

3070 X<A2+1>=X<A1> 

3880 Y<A2+l)«Y<Al) 

3098 FOR J»A1 TO A2 

3188 A3=A3+(X<J+1)-X<J))*<Y<J+1>+Y<J)) 

3138 NEXT J 

3148 A3=8.5:|:A3 

3158 A3*ABS<A3) 

3168 PRINT "lAREA *"JA3 

3178 RETURN 



We also eliminated some unnecessary 
statements and moved the ABS function 
to line 3150. If the area (A3) in line 3140 
is positive, the line segment is clockwise 
about the area; a negative area indicates 



CALL ^^MOUNT'' and 4907 Timing 



by W. J. Orvis 

Lawrence Livermore National 

Laboratory 

Livermore, CA 

When using a 4907 disk drive with a 4054 
computer, a slight timing error can some- 
times cause the 4054 to lock up busy. As 
part of our programming, we must occa- 
sionaly change a disk in the disk drive. 
This is usually accomplished by a se- 
quence of statements like the following: 



580 


PRINT 


"INSERT 


THF 


PROGRAM 


DISK 


AND 


PRESS 


RETURN:"} 


518 


INPUT 


Z$ 














528 


CALL 


"MOUNT", 


e,s« 













This will usually work just fine, except 
in the case where the disk has previously 
been inserted and mounted. Normally, 
the 4907 will mount the disk and return a 
status message to the 4054 which is 
stored in S$. If the disk was already in 
place and mounted, then the 4907 only 
sends back the status message. Occa- 
sionally, in a large program, the status 
message appears to be returned too 
soon, and conflicts with the memory op- 
erations taking place in the previous 
state. This results in the 4054 locking up 
busy waiting for the status message that it 
missed. 

Correcting this problem is quite simple, 
as all we must do is to waste a few ma- 
chine cycles to allow the memory opera- 



tion in line 510 to complete before exe- 
cuting line 520. Do this by inserting a 
blank remark statement at line 515. 



515 REM 

RUHieee 



589 PRINT "INSERT THE PROGRAM DISK AND PRESS RETURN:"} 

518 INPUT Z* 

515 REM 

528 CALL "MOUNT", 8, S* 



22 



Tekniques 
Vol. 5 No. 3 



PRINT USING to Disk 



Once a carriage return has been issued 
by the File Manager during a PRINT op- 
eration when using a format string, it 
must be redirected to the format string 
or it reverts to the default format.* Two 
readers have suggested methods for 
printing formatted arrays to the disk. 

by J. W. Ball 

U.S. Dept. of the Interior 
Geological Survey 
Menlo Park, CA 

The 4907 checks to see if 72+1 charac- 
ters are printed; if so, it issues a carriage 
return and reverts to the default format. 



lee 


INIT 










lie 


DIM A<8>,B(6>,A*(288> 






128 


FOR I«l TO 8 










138 


A<I)«I 










148 


NEXT I 










158 


FOR 1-9 TO 14 










168 


B<I-8>-I 










178 


NEXT I 










188 


KILL "TEST2- 










198 


CREATE "TEST2'' 


"A* 


U,8 






288 


OPEN "TEST2"ll 


Hp. 


• A« 






218 


PRINT »l: USIN 


. " ,4<6D. 


2D)":<: 


>6 


228 


CALL "REMIND", 


, 








238 


INPUT #i:a«,b» 


tC$ 








248 


PRINT 651 :A$ 










258 


PRINT tsire* 










268 


PRINT 951:C$ 










278 


A$-A$tcB« 










288 


A««A$«<Cf 










298 


PRINT eSl: "LENGTH 


(SHOULD BE 


126) ■ "JLEN<A$) 


388 


END 











By dividing the data items between two 
PRINT statements, the format is re- 
tained. 



188 INIT 

lie DIH A<8>,B(6>,A«(288) 

128 FOR I«l TO 8 

138 A<I>-I 

148 NEXT I 

158 FOR 1-9 TO 14 

168 B<I-8)-I 

178 NEXT I 

188 KILL "TEST2" 

198 CREATE -TEST2", "A"I 1,8 

288 OPEN "TEST2"Jli"F",A# 

218 PRINT il: USING "8(6D.2D>":A 

228 PRINT «l: USING "6(6D.2D>":B 

238 CALL "REMIND", 1 

248 INPUT »l:A$,B* 

258 PRINT e51:A* 

268 PRINT »51:B« 

278 A*-A«tiB« 

288 PRINT 851: "LENGTH (SHOULD BE 126) 

298 END 



In the following example, the same oper- 
ation is performed using a random-access 
file: 



188 INIT 




118 DIH A(8>,B(6),A«(288> 




128 FOR I-l TO 8 




138 A<I)-I 




148 NEXT I 




158 FOR 1-9 TO 14 




168 B<I-8>«I 




178 NEXT I 




188 KILL •TEST2" 




198 CREATE "TEST2", "A"»2,73 




288 OPEN "TEST2"}1,"F",A$ 

218 PRINT il,l: USING "8(6D.2D>":A 






215 PRUT «1,2: USING "6<6D.2D)":B 




228 CAL. "REWIND",! 




238 INPJT «1,1:A$ 




235 INPUT •1,2:B« 




236 PRINT M1:A$ 




237 PRINT Ml:B$ 




248 A$»A*4B* 




278 PRINT e5i: "LENGTH (SHOULD BE 126) - 


''JLEN<A*> 


288 END 





*See TEKniques Vol. 4 No. 3, 'Trinting 
Arrays to Tape or Disk." 



by Tom Price 
Lorillard 
Greensboro, NC 

The 4907 supports PRINT USING under 
most circumstances, but does not allow 
multiple lines to be correctly printed 



from a single IMAGE statement. That 
means the slash specification in an IM- 
AGE will always cause problems. It is 
particularly obvious with arrays. The fol- 
lowing examples illustrate the problem 
and how to overcome it. 



188 DIH A<5,2) 

118 A=8 

128 OPEN •TEST"|1,"F",A$ 

130 PRINT il: USING 148: A 

148 IMAGE5<3D3D/) 

158 CLOSE 

168 OPEN "TEST"J1,"R*,A» 

178 INPUT «1:A* 

188 PRINT A« 

198 IF TYPCl>-2 THEN 178 

288 END 

RUN 
8 8 



108 


DIM A<5,2) 




118 


A=8 






128 


OPEN 


•TEST-Jlj-F" 


,A$ 


121 


FOR I 


«1 TO 5 




138 


PRINT 


il: USING 148:A(I,1),A(I.2) 


131 


NEXT 


; 




148 


IMAGE 


3D3D 




158 


CLOSE 






168 


OPEN 


-TEST"! I, "R 


,A« 


178 


INPUT 


«i:a$ 




188 


PRINT 


A$ 




198 


IF TYP<1)«2 THEN 


178 


288 


END 






RUN 








8 


8 






8 


8 






8 


8 






8 


8 






8 


8 







Renaming Tape File Headers — Update 



by Anne Thanhouser 
Tektronix, Inc. 
Wilsonville, OR. 

The programming tip carried in TEK- 
niques Vol. 5 No. 1 for renaming tape 
headers had one omission in the restric- 
tions. Restricton #3 should read: 

Character 17 is normally P (program), 
D (data), T (text) or L (last). 
However, the two requirements are 
that the character has to be P if the 
file is to be "autoloaded" or if it's a 
binary program. In all other cases, it 
can be any printing character. 

The revised program is included below. 
Changes were made in statements 170, 
425, and 540 to 590. 



lee INIT 

Ue PRINT "LITAPE HEftDER LABELING PROGRAM" 

128 PRINT "i-«— —.-«——.——.—.— « 

138 PRINT 'Thif progran insarts labels in the headers of tape 4 

148 PRINT " You can lT>sert_up to 22 characters in each header. 



198 PRINT " The 4851. will not be able to lood it a. . 

288 PRINT 'JH you violate anu of these rulesi the progran will 

218 PRINT "appropriate action. J" 

228 PRINT 'To end. enter '8' for the file nunber.J' 

238 DIN Z$<l>,H»<23>,P$<l),Q»<l>,R*<l),C»(2J,S»<2> 

248 C*-CHR<13) 

245 S$-CHR<19) 

258 C«-C«tS* 

268 REM ttt REQUEST FILE • I NAHE *tt 

278 PRINT "ENTER FILE • "| 

288 INPUT N 

298 IF N«8 THEN 788 

295 PRINT " B" 

388 PRINT " fl P S" 

318 PRINT •XXXXXXXXXei2345e789ei234S6789ei2XXXXXXXXXXXX" 

328 PRINT "JJENTER FILE NAHE KKK' 

325 PRINT " / /"I 

338 PRINT USING "24<"-tl"">S»: 

348 N«-" 

358 INPUT H* 

368 N«-REP<H«,1,LEN<H«)> 



If you already changed some binary pro- 
gram headers and omitted the "P" in 
byte 17, simply use this program again to 
re-insert it. 



378 REM ttt READ TAPE HEADER ttt 

388 PRINT 933,8:8,8,1 

396 FIND N 

488 INPUT S33:A* 

418 Q»=SEG<A«,17,1> 



448 REM *«« CHECK FOR SECRET PROGRAMS ttt 

458 «»»SEG<A»,27,n 

468 IF M»-"S" AND R«<>"S" THEN 688 

478 IF R*»"S" AND M*<>"S" THEN 728 

488 REM ttt CHECK FOR NUMERICS ttt 

498 M*«SEG<A*,15,19> 

588 M»-M*i"1.234E-234" 

518 IF UAL<M»>«1.234E-234 THEN 558 

528 PRIK - 

538 GO 1 

548 REM ttt CHECK FOR AUTOLOAD AND BINARY PROGRAMS «** 

558 P$»SEG<A*,17,1> 

555 IF Q*<>"P" OR P*-"P" THEN 618 

568 IF B«<>«B" THEN 575 

565 PRINT "JJJJBINARY PROG HEEDS 'P' IN POS 17" 

578 GO TO 295 

575 IF HOI THEN 618 

588 PRINT "JJJJAUTOLOAD PROG HEEDS 'P' IN POS 17, WANT TO CHANGE IT? ") 

585 INPUT Z» 

598 IF Z*»"Y" THEH 388 

688 REM »** REPLACE HEADER *** 

618 FIND H 

628 A*-A$&C» 

638 PRIHT 933: A» 

648 CLOSE 

658 PRIHT 933,8:8,8,8 

655 PRIHT "L" 

668 GO TO 228 

678 REM ttt ERROR MESSAGES AND END ttt 

688 PRIHT "J: '— 

698 GO TO 38C 

788 FIHD 8 

718 END 

728 PRINT "FILE IS SECRET, CHAR #27 SHOULD BE '8'. PLEASE TRY AGAIN." 

738 GO TO 388 
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Clock on 4050 Screen 



by J. Bruursema 

Dutch Land Registry Office 
Apeldoorn 
and Ir. A. C. Visser 

Institute for Land and 

Water Management 

Research 

The Netherlands 

Between demonstrations, performances, 
etc., a clock on the 4050 screen will in- 
form passersby of the time. Change 
statement 620 for accurate timing. 















468 PRINT 'LNEXT DEMONSTRATION HILL BE ' 

418 PRINT USING 428:" CIUEN AT •JP9»" HOURS" 




4 GO TO leB 






8 pa; : 




428 IMAGE 12A,2D.2D,6A 




SB R 




438 FOR I»l TO 12 




68 R 




448 HOME 65>S8 




78 R 




458 ROTATE -38*1 




lea IT 




468 RHOUE 41 >0 




118 s ;t key 




478 RDRAU 9fa 




iZi i n DEGREES 








138 IHT "L HHEN mill THE NEXT DEHOHSTRATION BE GIDEN7" 








148 P^NT * (key in as tin« for cxanpic 14.38 > 'f 




588 ROTATE 9e-38«H-M-'2 




158 HPUT D9 




lit »6i?i§ 

538 ROTATE 9e-6»M 




ISe IF D9<8 OR D9>24 THEN 748 






178 H-INT<D9+e.el> 






188 n-iHT<iee*(i>9-H>+e.8i> 




iS§ Sg5g"6^?i§ 










288 PR NT -J HHftT IS THE RIGHT TIME?" 








210 PR NT '! Push RETURN-button 1 stc before the ncntionid tin* !' 




!7e RHOUE 41,8 




228 PR NT ' <for exanpit 14.15 > '; 




88 RDRAU 9,0 




238 INI UT T9 








248 IF T9<e OR T9>24 THEN 748 




88 REM Change the volue in the stotenent below 




298 H-INTCTS+e.ei) 




;ie REM when the clock 9oe« too fast or too slow 




268 H-INT(18e*<T9-H>+8.81) 




128 FOR I-l TO 215+1725«<RND<0>>e.2> 




278 IF n>59 THEN 740 




138 NEXT I 












298 S-8 




(158 IF 3«INT<S/5)«S THEH 558 




388 T9<'T9-*^e.81 




668 MOUE 63,50 
b7e ROTATE 98-6*S 




318 IF D9-T9<0.8eS THEN 728 










III ggg^g 5?8" 










348 T9>T9-24 








398 GO TO 318 

368 H-IHT(lO0*(T9-H>+e.91> 

325 IE 5i«8 IH^" ^"" 




728 PRINT 'LGCCCNON THE DEMONSTRATION IS BECINNINGII" 




380 T9-T9-H.39 




758 ENd"^ "JGGTHE TIME, YOU EHTERED, CANNOT BE CORRECT. 


START AGAIN." 



READing 4907 Data Files and Program DATA Statements 

by Tom Price 
Lorillard 
Greensboro, NC 

Code which reads DATA statements 
should not immediately follow code that 
OPENS a disk data file for read-only ac- 
cess. A READ command must be direct- 
ed to the open file before information 
can be properly read from DATA state- 
ments, or a PRINT command must be 
executed. 



109 INIT 




110 OPEN "testrn>"f 


?%A$ 


120 PRINT "- 




130 FOR 1=1 TO 3 




140 READ C$ 




150 PRINT C$ 




160 NEXT I 




170 DATA "first" 




180 DATA "second- 




is© DATA "third" 




200 END 




r\iT\ 




first 




second 




third 





100 


OPEN 


"TEST"U»''f%A$ 


110 


FOR ] 


«1 TO 3 


120 


READ 


A$ 


130 


PR INI 


A$ 


140 


NEXT 


I 


150 


DATA 


"First" 


160 


DATA 


"Second" 


170 


DATA 


"Third" 


run 






First 




Second 




Third 





READ command to the open file sets internal 
pointers. 



100 


INIT 




110 


OPEN 


"testl"?l,"R%A$ 


120 


FOR ] 


«1 TO 3 


130 


READ 


C* 


140 


PR INI 


C* 


150 


NEXT 


I 


160 


DATA 


"first" 


170 


DATA 


"second" 


180 


DATA 


"third" 


190 


END 




run 






second 




third 





100 


INIT 




110 


OPEN 


"tcstl"|l,"R",A$ 


120 


READ 


#1:H$ 


130 


FOR ] 


«1 TO 3 


140 


READ 


C$ 


150 


PRIN^ 


C$ 


160 


NEXT 


I 


170 


DATA 


"first" 


180 


DATA 


"second" 


190 


DATA 


"third" 


200 


END 




run 






first 




sec< 


Dnd 




thit 


-^d 





Opening the file for Full access will avoid 
incorrect data read. 



Notice the first data item is not read. 



A print operation will also set the pointers. 



Shellsort — Update 

by Brian Diehm 
Tektronix, Inc. 
Wilsonville, OR 

In TEKniques Vol. 4 No. 8, Dr. Bernard 
Gunn submits a shellsort routine that is 
faster than traditional bubble sorts. His 
algorithm is clever and does work as list- 
ed, but the initialization of the sort may 
be quickened and shortened by perform- 
ing the following change: 

DELETE lines 250 through 270 
INSERT line 260: 



269 D=«2tIHT<L0G<H>/L0G<2) + l> 



Particularly for sorts with large numbers 
of elements, this initialization will be 
faster than incrementally "trying" pow- 
ers of two until finding the first one larg- 
er than N. 

The complete Hsting of Dr. Gunn's algor- 
ithm, corrected as above, is listed below: 



lee iHiT 

119 PRINT "LHOW HANY RANDOM NUMBERS DO YOU MANT TO SEE SORTED? ' 

120 INPUT N 
130 DIM A(N> 
148 A—1 
158 A>RND(A> 
168 A'<18e0«A 
178 A«INT<A) 
188 PRINT A 

198 PRINT "*« SHELLSORT STARTED **" 

288 D-2tINT<L0G<N)/L0G<2)+l) 

218 D«INT<<D-l)/2) 

228 IF D-e THEH 358 

238 H-INT<N-0) 

248 FOR I-l TO II 

238 J»I 

268 L«J+D 

278 IF A<L>">A(J) THEN 338 

288 T1-A<J> 

298 A<J>-A<L) 

388 A<L)«T1 

318 J«J-D 

328 IF J>8 THEN 268 

338 NEXT I 

348 GO TO 218 

358 PRINT "*« SHELLSORT FINISHED *«" 

368 PRINT A 

378 END 
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Modified Auto-Paging — Update 



by Anthony V. Hewitt 
U.S. Naval Observatory 
Flagstaff, AZ 

The subroutine described in TEKniques 
Vol 4. No. 6 is useful but inflexible. Be- 
cause not every output page causes a 
page-full, the operator cannot change the 
behavior of the program on a page-full 



condition by using such commands as: 
PRINT @32,26: 3. The following rou- 
tine has the function: 

IF (the page is almost full) FILL IT 
RETURN 

which overcomes this limitation. 



999 REH PAGING SUBROUTINE 


ld00 


GIN X,Y 




1818 


IF Y>28 THEN 


1848 


1828 PRINT 




1838 


GO TO 1888 




1848 


RETURN 





X,SUMX 

by Pete Nelson 
Tektronix, Inc. 
Beaverton, OR 

The following line of code was placed in 
a 4051 with X dimensioned as a matrix: 

160 PRINT (?Q: USING 179: X,SUMK 

When LISTed or SAVEd it appears as: 

168 PRINT to: USING 178:XSUM(X) 



i INIT 

9 Q-32 

i DIM X<2e) 

i FOR I-l TO 28 

J X<I)«It2 

J NEXT I 

i PRINT eo: USING 17e:XSUM<X) 

3 IMAGE 2K3D) 



FIND 4 

SAUE 

FIND4 



or, since PRINT USING is being done, 
use: 



168 PRINT to: USING 170:XJSUM<X) 



The work-around is to precompute 
SUMX prior to printing: 



However, the line cannot be recalled and 
reentered as XSUM(X) without a Syntax 
Error occurring. The program with 
XSUM(X) can be stored on tape, but 
halts at line 160 when "OLD"ed into 
memory. 



159 Y-SUMX 
168 PRINT SQ: 



USING 178:X,Y 



Salvaging Old Tapes 

by David Yager 

Physics Department 

Sam Houston State University 

Huntsville, TX 

Some of our older tapes are unwound by 
our new 4052. The 4052 (and 
occasionally the 4051) refuse to find 
some files on these tapes. We suspect 
the faster winding speed is the reason. 
Rather than spend money on new tapes, 
we've found ways to rehabilitate old 
ones. Two remedies that work for us 
are: 

1 . Check the beginning and end of the 
tape to see if the optical load point 
sensor holes are clear. Sometimes the 
punch doesn't push the plug out of 
the hole. This can go unnoticed by 
the 4051, but will be picked up by the 
4052. 



2. Our tapes have the most used pro- 
grams bunched at the beginning of the 
tape. Often the last half of the tape is 
unused. We've been able to rewind 
the tape so the trailing end becomes 
the leading end. This part of the tape 
is usually brand new. The travel limit 
sensor holes must be repunched in the 
old sequence on both ends of the tape 
so that the rewind, autoload and 
"MTPACK" commands do not uns- 
pool the tape. These holes can be cut 
with an X-Acto knife with care. 



Editor's Note: Tapes do wear out and 
backups should be made. While procedure 
2 may work, Tektronix does not condone 
it and does not guarantee reliability. 
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UDU Commands and GDU Commands 



by Dan Taylor 
Tektronix, Inc. 
Wilsonville, OR 

The GIN statement (and POINTER com- 
mand) records the current position of the 
cursor on the graphic display in user data 
units determined by the current WIN- 
DOW statement. MOVE and DRAW 
statements also treat their arguments as 
user data units. 

Whereas, the INPUT statement with sec- 
ondary address of 24 treats the incoming 
data as graphic display units and the 
PRINT statement with secondary ad- 
dress of 20 or 21 treats its arguments as 
graphic display units. 

Therefore, don't use GIN (or POINTER) 
with PRINT (SD,20 or PRINT (§D,21; 



or INPUT (§D,24 with MOVE and 
DRAW (D = device #). The results may 
be different than expected, depending on 
your WINDOW. 

For example, try the following routine to 
see the placings on the screen, depend- 
ing on whether X and Y are treated as 
user data units or graphic display units. 



tee 


INIT 






lie 


UIHDOk 


-10,18,- 


-20,20 


120 


PRINT 


"L- 




138 


MOUE ; 


,15 




148 


GIN X, 


Y 




158 


HOME y 


,Y 
•UDU" 




168 


PRINT 




170 


PRINT 


e32,2i:x 


iY 


186 


PRINT 


"GDU- 




198 


END 







Efficient Subroutine Use 



by Ron Robinder 
Tektronix, Inc. 
Beaverton, OR 

The following guidelines will avoid ineffi- 
cient subroutine use and minimize code 
in a program. 

1. Avoid using a subroutine only once. 
Incorporating a subroutine directly at 
the point of call will eliminate two 
lines of code: the GOSUB statement 
and the RETURN statement. 

2. Avoid one line subroutines unless the 
line is long and complicated. These 



can be repeated in place of the GO- 
SUB statement, ehminating a total of 
two lines of code from the program 
for each one line subroutine.* 

3 . Two line subroutines should be called 
at least three times (unless they are 
long and complicated). Any other 
larger subroutine is acceptable for two 
or more calls.* 



*One exception might be if you were go- 
ing to be changing that one-or-two-line 
subroutine and wanted it in one location. 



These guidelines insure a minimum of 
lines of code. Other guidelines may ap- 
ply with regard to run time optimization, 
but I haven't been concerned with this 
aspect. 



Packing Tapes 

by Deggary N. Priest 

Commercial Testing Co., Inc. 
Dalton, GA 

Regarding your recent article on mainte- 
nance, I would Hke to comment on the 
"Packing Tapes" section. Using the 4051 
system, you need only FIND n (n 
LAST), MARK 1,400000 one time. 
Thereafter, TLIST will very nicely 
"Pack" the tape. 
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Savings Programs to Disk 



by Dave Kirkpatrick 

U.S. Army Corps of Engineers 
St. Louis, MO 

When editing disk files from the 4907 us- 
ing the Editor ROM Pack with the 4050, 
be sure to transfer the edited file to a 
new and unique disk file. Should you en- 
counter no errors, power failures, or oth- 
er problems, you would then be free to 
kill the original disk file that you were 



editing and rename the newly transferred 
disk file with the old disk file name. Do- 
ing this rather than first killing the disk 
file and re-creating it to hold the edited 
data would avoid losing your only 
remaining copy in case of error. 



Saving Programs to Tape 



by Dr. Ir. F. J. Franck 
Jan van Scorelpark, 12 
The Netherlands 

SAVing a memory-resident program after 
development or modification often repre- 
sents a hazardous manipulation. Several 
mistakes can be made: 

FINDing an unappropriate file num- 
ber and SAVing, thereby overwriting 
another file; 

SAVing the program in NOHEADER, 
NOCHECKSUM or 128 byte format; 

SAVing the program with an extra 
carriage return (after a 
PRINT @37,26:1); 

OLDing the program instead of SAV- 
ing it; 

Power failure during the SAVE;* 

Bad spot on tape develops.* 

The following routine may help in re- 
membering the right file number and 



preventing other mistakes. Dedicate one 
User-Definable Key to this purpose or 
start your SAVE routine at an easily re- 
cognizable line number, e.g., 10000 and 
save your program with RUN 10000. 



Editor's Note: If you are using the 4051, cer- 
tain lines of code will have be replaced with 
the following to point out the file header infor- 
mation: 



31 REn 

32 REM 

33 REM 

34 REM 

35 REM 

36 REM 

37 REM 
36 REM 
39 REM 
46 REM 

41 REM 

42 REM 

43 REM 

leeee rem — ■ 

leeie rem ttt 

18028 H-28 

18838 PAGE 

18848 PRINT »37,26:0 

18858 PRINT 933,8:8,8,8 

18868 FIND N 

18878 CALL "HEADER" 

18888 PRINT "JSavc [NAME] on flit 

18898 INPUT A$ 

18188 A«-SEG(A«,l,n 

18118 IF A^O'V '"- 

18128 FIND N 

18138 SAUE 

18148 REM tU or CALL "BSAUE" *t* 

18158 CLOSE 

"DotitCCC" 



ttt*t*tu*ttt*nnttt*u**n*tttt*utt*. 
t 

t Put your proaran taktn fron fi1« N 
« 5on«whcrt bttwien 108 ai^d 9999 
t or behind 12880. 



tttttt*nt*t*utut*ntnttnttttttnt*> 



IS THE FILE NUMBER Ut 



"INJ", O.K.CY/H3GGGC"» 



^■HEM 101( 



18168 PRINT 

10178 END 

18180 PRINT 

10198 PRINT 

18208 END 

18218 REM "« 



'PROGRAM HAS NOT BEEN SAUED!' 



19858 


PRINT 833, 


8:8,0,1 


18868 


FIND N 




18861 


INPUT 633 


A* 


18862 


PRINT 633 


8:8,8,8 


18863 


B»-SEG<A$ 


33.8) 


18864 


B«256*UAL<B$) 


18865 


Bf-STR<B) 




18866 


A««SEG(A« 


1,32) 


18867 


A$>A$«,B« 




18878 


PRINT A$ 





*To overcome these two events, you must 
have a backup of the program either on 
the current tape, or a separate tape. 
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Library Consolidation 



You've overwhelmed us! What began 
over five years ago as a rather informal 
method of sharing 4050-Series programs 
has outgrown its usefulness. When it all 
began the Libary had a few programs, a 
few members and we expected (and got) 
only a couple of orders per week. 

Now, with over 200 programs available 
and Library membership growing rapid- 
ly, our mailbox is full of orders each 
morning. To continue to provide efficient 
service to you, we've streamlined pro- 
gram ordering. 

We've combined like-subject programs 
together on tapes or disks, packaged the 
tape or disk together with the supporting 
documentation and given the package a 
Tek part-number. Now you can order 



programs just like ordering blank .tapes 
or plotter pens, through your local Tek- 
tronix representative. 

Here is a list of the packages now avail- 
able. Packages include the media ("T" 
= tape, "D" = Disk) and documentation 
(without listings). Documentation is 
available separately. 

To find out what is in each package you 
will need the latest issue of the Applica- 
tions Library catalog. Most of you 
should have received one enclosed with 
this issue of TEKniques. (The catalog 
designed to fit in a three-ring binder (Tek 
P/N 016-0367-00) and we will add pages 
later to update it.) If you don't have a 
catalog, contact your local Tektronix re- 
presentative. 



Package Title Package Part # 

Business Aids Tl 062-5987-01 

Business Aids T2 062-5988-01 

CAD Tl 062-5976-01 

CAD Dl 062-5977-01 

Character Generator Tl 062-5951-01 

Education/Research Tl 062-5982-01 

Education/Research T2 062-5983-01 

Electrical Engineering Tl 062-5978-01 

Graphing Tl 062-5964-01 

Graphing T2 062-5965-01 

Graphing T3 062-5966-01 

Graphing Dl 062-5967-01 

Graphing D2 062-5968-01 

Interfacing Tl 062-5984-01 

Mapping Tl 062-5980-01 

Mechanical Engineering 062-5979-01 

Programming Aids Tl 062-5971-01 

Programming Aids T2 062-5972-01 

Project Aids Tl 062-5985-01 

Project Aids Dl 062-5986-01 

Recreational Plots Tl 062-5989-01 

Slidemaker Tl 062-5962-01 

Slidemaker Dl 062-5963-01 

Text Processing Tl 062-5969-01 

Text Processing Dl 062-5970-01 

Utilities Tl 062-5974-01 

Utilities Dl 062-5975-01 



In the past, we have exchanged three 
programs of your choice for each new 
program accepted by the Library. Now 
we will offer a full package for each one, 
a considerable increase in most cases. 

New programs not included in this initial 
offering will be combined until we get a 
tape or disk full. New packages will be 
announced via TEKniques and support- 
ing catalog pages will be distributed to 
all Library members. 
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4050 Series Applications Library Programs 



Ordering 

The current system for ordering individual 4050 Series 
APPLICATIONS Library programs will remain in effect until 
December 31, 1981. However, effective immediately you may 
also order programs by the new package system. After De- 
cember 31, 1981, only the packages may be ordered. 

Individual Program Orders (until December 31, 1981) 

Documentation and program listings of each program are avail- 
able for a nominal charge. Programs will be put on tape or disk 
for a small recording fee per program plus the charge for the 
tape cartridge or flexible disk. One tape /disk will hold several 
programs. Programs will be recorded on like media only, i.e., 
programs on tape cannot be sent on disk and vice versa unless 
so noted in the abstract. 

(The program material contained herein is supplied without 
warranty or representation of any kind. Tektronix, Inc. assumes 
no responsibility and shall have no liability, consequential or 
otherwise, or any kind arising from the use of this program 
material or any part thereof.) 

Domestic U.S. Prices: 

Documentation and Listing only $25 per program 

Documentation, Listing and Recording Fee 30 per program 

Tape Cartridge 36 per tape 

Flexible Disk 15^ per disk 

Forms 

Please use the Applications Library Order Form. Order forms 
are included in the Membership Packet and are available from 
your local Tektronix Sales Engineer. 



Packaged Program Orders 
(effective immediately) 

Call your local Tektronix Sales Office and give your representa- 
tive the part number of the package(s)you wish. A price list is 
included with your 4050 Series Applications Library catalog. 

Contributions 

The current exchange system for program contributions will also 
remain in effect until December 31, 1981. However, you may 
take advantage of the package exchange instead. After December 
31, 1981, only the package exchange will be available. 

Three-for-One Exchange 

Contribute one program to the Library and receive three in ex- 
change . Send in the membership card from your 4050 Series Graphic 
System Reference Manual to get the details. Or call us (503) 685- 
3618. 

Outside U.S. 

Program contributions or orders, outside the U.S. must be pro- 
cessed through the local Tektronix sales office or sent to one of 
the Libraries serving your area. See Library Addresses section. 

Package Exchange 

Contribute one program to the Library and recive one package 
in exchange. 



Since the following program abstracts, 
along with their graphic output (where 
applicable), are contained in the new 
4050 Series Applications Library Cata- 
log, only their description is included in 
TEKniques. See the catalog for their 
graphic capabilities. 

ABSTRACT #: 51/00-6124/0 

Title: 4050/492P Utility 

Author: David B. Green 
Tektronix, Inc. 
Beaverton, OR 
Memory Requirement: 32K 
Peripherals: 492? Spectrum Analyzer 

OptionaM662 Plotter 
Statements: 1286 
Files: 8 ASCII Program 
9 ASCII Data 
7 Binary Data 
Requires dedicated tape 

This is a demonstration software pack- 
age, however, it contains many useful al- 
gorithms that can be adapted for person- 
l1 application programs. The following 
"are the sub-programs in this package. 

Indexing/Menu 

Contains the initial control structure for 
the entire package. Used to access de- 



sired sub-programs and also contains a 
complete list of 492P commands. This 
sub-program also allows direct control of 
the analyzer over the GPIB bus. 

492P Waveform Transmission 

Establishes a single keystroke approach 
which allows you to either transmit or 
receive waveform data. Instrument Front 
Panel Settings may also be transmitted 
or received along with each correspond- 
ing waveform. Provides for simple data 
storage to magnetic tape which will allow 
you to store measurement conditions and 
data. By the stroke of a few User-Defin- 
able Keys, the 492P can be made to re- 
configure to previously made measure- 
ment parameters. 

Spectrum Analysis 

Provides rapid spectrum analysis from 
sweeps made on the 492P. Two types of 
analysis are provided: 

1) This analysis Hsts and graphs the fre- 
quencies to either side of the signal at 
center screen. Sideband measure- 
ments are made easy with this portion 
of the program. 

2) Direct frequency measurements are 
the function of this section. All sig- 



nals appearing on screen are cata- 
loged and listed on the controller. 

492P Command Syntax Tutorial 

This is a complete tutorial provided for 
the novice. The tutorial provides for the 
user comprehensive instruction in the 
use of the GPIB command syntax used 
in the 492P. As each item is presented, 
the user is allowed to "experiment" with 
each command with help as needed pro- 
vided by the controller. Periodic review 
of this section keeps one's programming 
skills at a maximum. 

Total Harmonic Distortion 

This sub-program was provided especial- 
ly for sales personnel. It operates using 
only the internal calibrator signal provid- 
ed in the 492P. The program 
automatically searches for and measures 
all requested harmonics of a given fre- 
quency and computes the total Hermonic 
distortion. Measurement results are pro- 
vided in a neat graphics format. 

Utility Programs 

Duplicate tapes. Name tape file headers 
to use for data storage. 
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ABSTRACT #: 51/07-8029/1 

Title: CDOS 4907 Operating System 

Authors: Lunne Cueto 
Carl Dawson 
Tektonix, Inc. 
Rockville, MD 
Orlando, FL 
Revised by: Frits Handgraaf 
Tektronix, Inc. 
Amstelveen, The Nether- 
lands 
Memory Requirement: 16K 
Peripherals: 4907 File Manager 

Optional — 4641 Printer 
Files: 26 Program 

28 Data 
Statements: 1480 



CDOS has been modified for one start- 
up program instead of the two contained 
in the original version, and some changes 
made. 

CDOS has been modified to take advan- 
tage of the 4052/4054 and some minor 
streamlining has been incorporated: 

One start-up program instead of two; 

A new APPEND procedure in the 
main program to avoid memory full; 

The system disk may be mounted in 
any drive; 

DISCTOTAPE routine changed for 
optimum file marking; 



New program lines in the FORMAT 
to prevent the system disk from being 
formatted; 

A few other minimal charges for more 
efficient execution. 



ABSTRACT # 51/00-8043/0 

Title: Micro-Grasp 

Author: Roger W. Bowen 

U.S. Geological Survey 
Reston, VA 
Memory Requirement: 32K 
Statements: 1135 
Files: 3 ASCII Program 

4 ASCII Date (examples) 
Requires dedicated tape 

Micro-Grasp is a scaled down version of 
the USGS Geologic Retrieval and Sy- 
nopsis Program (GRASP). The GRASP 
system is extensively used on a variety 
of small to large scale hosts to access 
many diverse types of data. Micro-Grasp 
retains the major features of GRASP and 
should prove useful on private (or non- 
shared) databases of a small to medium 
size (less tha 300K bytes). Micro-Grasp 
is a command-oriented system which op- 
erates on fixed-field character and/or nu- 
meric data in a tabular form. 

Each database consists of a data defini- 
tion file and a master file. The data 
definition file describes the master file. 
The data definition files contains the 
number of fields in a master-file record, 
the number of characters in a master-file 
record and the number of the master file. 



This is followed by 'n' field-description 
records. Each field-description record 
has a field name, data type, beginning 
position, and optional ending position. 

The master file contains the actual AS- 
CII data. Data may be numeric or char- 
acter and must be in a fixed field format. 

Twelve commands operate on the data in 
the data-definition files and the master 
files: 

Help: displays a list and shor description 
of each of the commands. 

File: establishes or changes a data defini- 
tion file. 

Name: outputs the data definition file to 
screen or a selected tape file. 

Inpu(t): creates a master file in prompted 
mode. 

Cond(ition): enters or adds a set of con- 
ditions using vahd field names and their 
relation (equal, less than, greater than, 
less than or equal to, greater than or 
equal to, not equal to, or contains string) 
to a value (blank, numeric or character 
string) on which to select data. 



Logi(c): completes selection criteria by 
combining conditions (entered earlier) 
with the logical operators: and, or, not. 

Defi(ne): defines new variables which re- 
main in effect until a new master files is 
selected. 

List: displays selected fields for each rec- 
ord which satisfies the selection criteria 
(conditions and logic). 

( 
Revi(ew): displays the number of the 
master fiel, the field names being listed, 
current conditions and logic expressions 
used in the listing. 

Stat(istics): calculates statistics (mini- 
mum, maximum, sum, mean, variance, 
standard deviation) for each specified nu- 
meric field. 

Util(ity): provides copy, tlist, mark, print 
and input. 

Quit: exits Micro-Grasp. 



ABSTRACT #: 51/07-8049/0 

Title: Disk Directory 

Author: Nick Ogbourne 

Comalco Aluminum (Bell 

Bay) Ltd. 

George Town, Tasmania 
Memory Requirement: 8K 
Peripherals: 4907 Fil^ Manager 
Files: 1 Program 
Statements: 193 



Disk Directory maintains a directory 
of up to 50 disk programs and con- 
trols access to and execution of those 
programs. 

Disk Directory creates and maintains 
an index file. This index file includes 
the file identifier, program # (se- 
quenced in the order entered), and 
user-input information (up to 44 char- 
acters) about the file. Programs may 



30 



be added or deleted through the User- 
Definable Keys. 

Disk Directory reads the index file, 
prints a directory of the files (multi- 
page if necessary) and prompts for the 
program of your choice. It will warn 
you if a selected file is a binary data 
file. Any other type of file will at- 
tempt to load. 
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ABSTRACT #: 51/00-9548/0 

Title: Frames 
Author: Mike Tharpe 
Honeywell, Inc. 

Minneapolis, MN 
Memory Requirement: 16K 
Peripherals: Optional-4662 Plotter 
Statements: 540 
Files: 1 ASCII Program 

For the final touch, frame your slides 

"Frames" consists of 12 different de- 
signs which may be drawn around your 
slide on the screen or 4662 Plotter. 

Spokes 

Circles 

Spokes and Circles 

Straight-Edged 

Straight-Edged with Perspective 

Slants 

Six Pointed Stars 



Maze 

Boxes within Boxes 

French Provincial 

Cross-Hatched 

Sunburst 

Corners Only 

Instructions for changing the size of your 
border are included. 



ABSTRACT #: 51/00-6126/0 

Title: Bibliography Management & 
Search 

Authors: K. Ho and G. Tzitzikalakis 
Columbia University 
Dept. of Orthopedic Surgery 
New York, NY 

Peripherals: Optional-4662 Plotter 

Memory Requirement: 24K 

Statements: 623 

Files: 2 ASCII Programs 

1 ASCII Text (example) 
Requires dedicated tape 

These programs store, review and re- 
trieve bibliographical references on tape. 

Management Program 

The program numerically sequences the 
references in the order entered. 
Four Data items comprise the reference: 

author's name (72 char) 
title (144 char) 

source (144 char) 

content (216 char) 

Content contains the keywords which 
will be used in a search. 

You may review or correct any of the 
references stored on tape by responding 
with the reference number when prompt- 
ed. 

The data files may reside on the same 
tape as the program files or a separate 



tape. However, the tape from the first 
data file to the last must be dedicated to 
this program since the Management Pro- 
gram automatically MARKs files as 
needed and maintains a numeric se- 
quence throughout. 

A mnemonic menu drives the routines: 

ENT — search the last reference on 
tape, get and store new references 
one by one 

REV — search the designated refer- 
ence and print out 

COR — calculate the file number of 
the designed reference, store the file's 
data in a string X$, correct the desig- 
nated reference and store string X$ 
onto the same file 

SEA — OLD the "SEARCH" pro- 
gram for retrieval of references 
MEN — print hst of Mnemonics 
TER — end execution 

Search Program 

This program will search the references 
stored on a tape by the Management 
Program. The search may be based on 
keyword(s) in the content data item, or 
on the author(s) name. Once you choose 
the search mode, you will be prompted 
for the keyword(s). Only when the con- 
tent keyword(s) or the author(s) — de- 
pending on the mode chosen — satisfy 
all keyword(s) input, will the reference 
be retrieved. 



The retrieved references may be printed 
to the screen or plotter, stored on tape, 
or refined and stored on a different tape. 

A mnemonic menu drives the routines: 

KEY — search and retrieve refer- 
ences with keywords on content 
AUT — search and retrieve refer- 
ences with keywords on author 
REF — search and retrieve references 
stored on tape from previous search- 
es, with a different set of keywords 
on content or author 
TAP — store retrieved references on 
tape 

SCR — print retrieved references on 
screen 

PLO — print retrieved references on 
output device (plotter) 
CON — continue the search that was 
stopped due to memory space 
MEN — print hst of Mnemonics 
MAN — OLD "MANAGEMENT" 
program and execute it 
TER — end execution of program 

An example of data file is included with 
the two programs. 
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4050 Series Applications Libraries 




Africa, Europe, Middle East 


Canada 


Japan 


Contact local sales office 


4050 Series Applications Library 


4050 Series Applications Library 




Tektronix Canada Ltd. 


Sony/ Tektronix Corporation 


Australia 


P.O. Box 6500 


9-31 Kitashinagawa-5 




Barrie, Ontario 


Tokyo 141 Japan 


4050 Series Applications Library 


Canada L4M 4V3 




Tektronix Australia Pty. Limited 




United States 


Sydney 

80 Waterloo Road 

North Ryde, N.S.W. 2113 


Caribbean, Latin America 
and Far East (excl. Japan) 


4050 Series Applications Library 
Tektronix, Inc. 




IDD Group 


Group 451 




Export Marketing 


P.O. Box 500 




Tektronix, Inc. 


Beaverton, Oregon 97077 




P.O. Box 500 






Beaverton, Oregon 97077 






U.S.A. 
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